Changeset 26735 for lang/perl/Catalyst-Controller-Delegate/trunk/t/03pod-coverage.t

Timestamp:

12/15/08 13:19:06 (4 years ago)

Author:

holidays-l

Message:

lang/perl/Catalyst-Controller-Delegate: update tests

Files:

• lang/perl/Catalyst-Controller-Delegate/trunk/t/03pod-coverage.t (modified) (3 diffs)

lang/perl/Catalyst-Controller-Delegate/trunk/t/03pod-coverage.t

@@ -1 @@
-#!/usr/bin/env perl
+#! /usr/bin/env perl
 #
 # $Id$
@@ -8 +8 @@
 use version; our $VERSION = qv('0.0.1');
 
-use blib;
-use English qw(-no_match_vars);
+BEGIN {
+    use File::Spec;
+    use FindBin qw($Bin);
+    chdir File::Spec->catdir( $Bin, q{..} );
+}
 use Test::Base;
 
@@ -16 +19 @@
         require Test::Pod::Coverage;
         Test::Pod::Coverage->import;
-    };
-    if ($EVAL_ERROR) {
+        my $all_modules = Test::Pod::Coverage->can('all_modules');
+        ## no critic (TestingAndDebugging::ProhibitNoWarnings)
+        no warnings qw(redefine once);
+        ## use critic
+        *Test::Pod::Coverage::all_modules = sub {
+            my @modules = $all_modules->(@_);
+            @modules = grep { !m{^Stickam::Schema}msx } @modules;
+            return @modules;
+        };
+      }
+      or do {
         plan skip_all =>
           'Test::Pod::Coverage required for testing POD coverage';
-    }
+      };
 }
 else {