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