Commit | Line | Data |
b50a9801 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More tests => 3; |
4 | use Module::Metadata; |
5 | |
8d86d0e2 |
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 | |
b50a9801 |
16 | { |
17 | my $src = <<'...'; |
18 | package Foo; |
19 | 1; |
20 | ... |
21 | |
8d86d0e2 |
22 | my $fh = fh_from_string($src); |
b50a9801 |
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 = <<'...'; |
29 | package Foo; |
30 | 1; |
31 | |
32 | =head1 NAME |
33 | |
34 | Foo - bar |
35 | ... |
36 | |
8d86d0e2 |
37 | my $fh = fh_from_string($src); |
b50a9801 |
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 = <<'...'; |
44 | package Foo; |
45 | 1; |
46 | |
47 | =head1 NAME |
48 | |
49 | Foo - bar |
50 | |
51 | =head1 AUTHORS |
52 | |
53 | Tokuhiro Matsuno |
54 | ... |
55 | |
8d86d0e2 |
56 | my $fh = fh_from_string($src); |
b50a9801 |
57 | my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm'); |
58 | ok($module->contains_pod(), 'This module contains POD'); |
59 | } |