Skip to content
Permalink
Browse files

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

  • Loading branch information...
perlDreamer committed Jan 18, 2012
1 parent 7406c02 commit e97d84fb144f50c11af1da9c7bd5349c504eaae5
Showing with 2 additions and 2 deletions.
  1. +2 −2 t/POD.t
@@ -28,11 +28,11 @@ 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;
my $goodReason = $pc->why_unrated() eq 'no public symbols defined';
my $goodReason = $pc->why_unrated() eq'no public symbols defined';
SKIP: {
skip "No subroutines found by Devel::Symdump for $package", 1 if $goodReason;
ok($coverage, sprintf "%s has %d%% POD coverage", $package, $pc->coverage*100);

0 comments on commit e97d84f

Please sign in to comment.
You can’t perform that action at this time.