This is pod.

an item

This is an item

This is pod.

an item

This is an item

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