Omit the run method for scripts which new Pod::Coverage finds

diff --git a/t/author/podcoverage.t b/t/author/podcoverage.t
index e8730de..f8868b6 100644 (file)
--- a/t/author/podcoverage.t
+++ b/t/author/podcoverage.t
@@ -5,9 +5,12 @@ use Test::More;
 use Pod::Coverage 0.19;
 use Test::Pod::Coverage 1.04;
 
-all_pod_coverage_ok(
-  {
-    also_private => ['BUILD']
-  }
-);
+my @modules = all_modules;
+our @private = ( 'BUILD' );
+foreach my $module (@modules) {
+    local @private = (@private, 'run') if $module =~ /^Catalyst::Script::/;
+    pod_coverage_ok($module, { also_private => \@private });
+}
+
+done_testing;