oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Colin Kuskie 2012-01-18 13:39:32 -08:00
parent 7406c02a78
commit e97d84fb14
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/POD.t
View file

@ -28,11 +28,11 @@ plan tests => $moduleCount;
foreach my $package (sort @modules) { foreach my $package (sort @modules) {
my $pc = Pod::Coverage->new( my $pc = Pod::Coverage->new(
package => $package, package => $package,
also_private => [ qr/definition/ ], also_private => [ qr/^definition$/, qr/^run$/],
nonwhitespace => ($ENV{POD_COVERAGE} == 3 ? 1 : 0), nonwhitespace => ($ENV{POD_COVERAGE} == 3 ? 1 : 0),
); );
my $coverage = $pc->coverage > $threshold; my $coverage = $pc->coverage > $threshold;
my $goodReason = $pc->why_unrated() eq 'no public symbols defined'; my $goodReason = $pc->why_unrated() eq'no public symbols defined';
SKIP: { SKIP: {
skip "No subroutines found by Devel::Symdump for $package", 1 if $goodReason; skip "No subroutines found by Devel::Symdump for $package", 1 if $goodReason;
ok($coverage, sprintf "%s has %d%% POD coverage", $package, $pc->coverage*100); ok($coverage, sprintf "%s has %d%% POD coverage", $package, $pc->coverage*100);