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