Some POD This should be ignored, incl. digit 1 CODE pass OUT ^

pir_output_is( <<'CODE', <<'OUT', "pod with decimal digits" ); .sub test :main print "pass\n" end .end =head1 Some POD This should be ignored, incl. number 1.0

Some POD This should be ignored, incl. digit 1.0 ^

Foobar ^

we don't cut out!!!

ENDF close $FOO;

SKIP: { skip( "Closing out of pod from included files", 1 ); pir_output_is( <<'CODE', <<'OUT', "simple pod" ); .include "include.tempfile" .sub test :main print "pass\n" end .end CODE pass OUT }

unlink('macro.tempfile', 'include.tempfile');

# Local Variables: # mode: cperl # cperl-indent-level: 4 # fill-column: 100 # End: # vim: expandtab shiftwidth=4:


parrot