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

Add POD_COVERAGE==3 switch to find empty POD blocks.

Browse source
This commit is contained in:
Colin Kuskie 2009-07-06 03:57:33 +00:00
parent 2e28a9870a
commit 3964baeb2e
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
t/POD.t
View file

@ -29,8 +29,9 @@ plan tests => $moduleCount;
use Data::Dumper; use Data::Dumper;
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/ ],
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';
@ -39,6 +40,7 @@ foreach my $package (sort @modules) {
ok($coverage, sprintf "%s has %d%% POD coverage", $package, $pc->coverage*100); ok($coverage, sprintf "%s has %d%% POD coverage", $package, $pc->coverage*100);
if (!$coverage && $ENV{POD_COVERAGE}) { if (!$coverage && $ENV{POD_COVERAGE}) {
diag Dumper [$pc->naked]; diag Dumper [$pc->naked];
diag $pc->why_unrated;
} }
} }
} }