Commit | Line | Data |
---|---|---|
30890a12 | 1 | use strict; |
2 | use warnings; | |
3 | use utf8; | |
8d86d0e2 | 4 | use Test::More tests => 2; |
30890a12 | 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'); |