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);
55 my $p2 = Pod::Simple::XHTML->new ();
56 isa_ok ($p2, 'Pod::Simple::XHTML');
58 open(POD, "<$$.pod") or die "$$.pod: $!";
60 while (<POD>) {
64 close(POD);
71 my $p3 = Pod::Simple::XHTML->new ();
72 isa_ok ($p3, 'Pod::Simple::XHTML');
74 open(POD, "<$$.pod") or die "$$.pod: $!";
76 while (<POD>) {
80 close(POD);
96 1 while unlink("$$.pod", "$$.in");