This is pod.
This is pod.
EOD
# Check pod when writing
ok( open( my $out,'>:via(PerlIO::via::Pod)', $file ), "opening '$file' for writing" );
ok( (print $out $original), 'print to file' ); ok( close( $out ), 'closing writing handle' );
# Check pod without layers
{ local $/ = undef; ok( open( my $test,$file ), 'opening without layer' ); is( readline( $test ),$pod, 'check pod content' ); ok( close( $test ), 'close read test handle' );
ok( open( $test,">$file" ), 'creating without layer' ); print $test $original; ok( close( $test ), 'close create test handle' ); }
# Check pod when reading
ok( open( my $in,'<:via(Pod)', $file ), "opening '$file' for reading" ); is( join( '',<$in> ),$pod, 'read from file pod' ); ok( close( $in ), 'close reading handle pod' );
# Remove whatever we created now
ok( unlink( $file ), "remove test file '$file'" ); 1 while unlink $file; # multiversioned filesystems
2 POD Errors
The following errors were encountered while parsing the POD:
- Around line 21:
Unknown directive: =head
- Around line 39:
Unknown directive: =head