3 use Test::More tests => 3;
6 *fh_from_string = $] < 5.008
7 ? require IO::Scalar && sub ($) {
8 IO::Scalar->new(\$_[0]);
11 open my $fh, '<', \$_[0];
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');
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');
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');