Lines Matching full:pod
7 use_ok('Pod::Simple::XHTML') or exit;
9 open(POD, ">$$.pod") or die "$$.pod: $!";
10 print POD <<__EOF__;
11 =pod
35 close(POD);
39 my $p1 = Pod::Simple::XHTML->new ();
40 isa_ok ($p1, 'Pod::Simple::XHTML');
42 open(POD, "<$$.pod") or die "$$.pod: $!";
44 while (<POD>) {
48 close(POD);
56 my $p2 = Pod::Simple::XHTML->new ();
57 isa_ok ($p2, 'Pod::Simple::XHTML');
59 open(POD, "<$$.pod") or die "$$.pod: $!";
61 while (<POD>) {
65 close(POD);
73 my $p3 = Pod::Simple::XHTML->new ();
74 isa_ok ($p3, 'Pod::Simple::XHTML');
76 open(POD, "<$$.pod") or die "$$.pod: $!";
78 while (<POD>) {
82 close(POD);
99 1 while unlink("$$.pod", "$$.in");