Commit | Line | Data |
b50a9801 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More tests => 3; |
4 | use Module::Metadata; |
5 | |
6 | { |
7 | my $src = <<'...'; |
8 | package Foo; |
9 | 1; |
10 | ... |
11 | |
12 | open my $fh, '<', \$src; |
13 | my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm'); |
14 | ok(!$module->contains_pod(), 'This module does not contains POD'); |
15 | } |
16 | |
17 | { |
18 | my $src = <<'...'; |
19 | package Foo; |
20 | 1; |
21 | |
22 | =head1 NAME |
23 | |
24 | Foo - bar |
25 | ... |
26 | |
27 | open my $fh, '<', \$src; |
28 | my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm'); |
29 | ok($module->contains_pod(), 'This module contains POD'); |
30 | } |
31 | |
32 | { |
33 | my $src = <<'...'; |
34 | package Foo; |
35 | 1; |
36 | |
37 | =head1 NAME |
38 | |
39 | Foo - bar |
40 | |
41 | =head1 AUTHORS |
42 | |
43 | Tokuhiro Matsuno |
44 | ... |
45 | |
46 | open my $fh, '<', \$src; |
47 | my $module = Module::Metadata->new_from_handle($fh, 'Foo.pm'); |
48 | ok($module->contains_pod(), 'This module contains POD'); |
49 | } |