cpan/Module-Metadata/t/endpod.t

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