Commit | Line | Data |
---|---|---|
30890a12 | 1 | use strict; |
2 | use warnings; | |
3 | use utf8; | |
4 | use Test::More; | |
5 | use Module::Metadata; | |
6 | ||
7 | # This test case tests about parsing pod after `__END__` token. | |
8 | ||
9 | my $pm_info = Module::Metadata->new_from_file('t/lib/ENDPOD.pm', collect_pod => 1,); | |
10 | is( $pm_info->name, 'ENDPOD', 'found default package' ); | |
11 | is(join(',', $pm_info->pod_inside), 'NAME'); | |
12 | ||
13 | done_testing; | |
14 |