From: Tomas Doran <bobtfish@bobtfish.net>
Date: Wed, 25 Aug 2010 23:31:03 +0000 (+0000)
Subject: Omit the run method for scripts which new Pod::Coverage finds
X-Git-Tag: 5.80026~7^2~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=4c44029766520d862938a7317d8ba6f209641465

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
--- 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;