From e97d84fb144f50c11af1da9c7bd5349c504eaae5 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 18 Jan 2012 13:39:32 -0800
Subject: [PATCH] Better methods for finding module names from package names
 for t/POD.t

---
 t/POD.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/POD.t b/t/POD.t
index dae09ff58..b9ab1c6e5 100644
--- a/t/POD.t
+++ b/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);