Better methods for finding module names from package names for t/POD.t

This commit is contained in:
Colin Kuskie 2012-01-18 13:39:32 -08:00
parent 7406c02a78
commit e97d84fb14

View file

@ -28,7 +28,7 @@ plan tests => $moduleCount;
foreach my $package (sort @modules) {
my $pc = Pod::Coverage->new(
package => $package,
also_private => [ qr/definition/ ],
also_private => [ qr/^definition$/, qr/^run$/],
nonwhitespace => ($ENV{POD_COVERAGE} == 3 ? 1 : 0),
);
my $coverage = $pc->coverage > $threshold;