[Catalyst-commits] r13539 - Catalyst-Runtime/5.80/trunk/t/author

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2010-08-26 00:31:03 +0100 (Thu, 26 Aug 2010)
New Revision: 13539

Modified:
   Catalyst-Runtime/5.80/trunk/t/author/podcoverage.t
Log:
Omit the run method for scripts which new Pod::Coverage finds

Modified: Catalyst-Runtime/5.80/trunk/t/author/podcoverage.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/author/podcoverage.t	2010-08-25 23:26:14 UTC (rev 13538)
+++ Catalyst-Runtime/5.80/trunk/t/author/podcoverage.t	2010-08-25 23:31:03 UTC (rev 13539)
@@ -5,9 +5,12 @@
 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;
+