1use strict; 2use warnings; 3use Test::More tests => 3; 4use Module::Metadata; 5 6*fh_from_string = $] < 5.008 7 ? require IO::Scalar && sub ($) { 8 IO::Scalar->new(\$_[0]); 9 } 10 : sub ($) { 11 open my $fh, '<', \$_[0]; 12 $fh 13 } 14; 15 16{ 17 my $src = <<'...'; 18package Foo; 191; 20... 21 22 my $fh = fh_from_string($src); 23 my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm'); 24 ok(!$module->contains_pod(), 'This module does not contains POD'); 25} 26 27{ 28 my $src = <<'...'; 29package Foo; 301; 31 32=head1 NAME 33 34Foo - bar 35... 36 37 my $fh = fh_from_string($src); 38 my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm'); 39 ok($module->contains_pod(), 'This module contains POD'); 40} 41 42{ 43 my $src = <<'...'; 44package Foo; 451; 46 47=head1 NAME 48 49Foo - bar 50 51=head1 AUTHORS 52 53Tokuhiro Matsuno 54... 55 56 my $fh = fh_from_string($src); 57 my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm'); 58 ok($module->contains_pod(), 'This module contains POD'); 59} 60