Backcompaterize
[p5sagit/Module-Metadata.git] / t / endpod.t
1 use strict;
2 use warnings;
3 use utf8;
4 use Test::More tests => 2;
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');