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