Permalink
Browse files

quiet some warnings

  • Loading branch information...
1 parent 18abd32 commit ad9b7f2c7dd415618397c122f170bc3f6fda9f6a @petdance committed May 17, 2011
Showing with 7 additions and 5 deletions.
  1. +3 −2 t/98_pod_syntax.t
  2. +4 −3 t/99_pod_coverage.t
View
@@ -5,8 +5,9 @@ use warnings;
use Test::More;
use Perl::Critic::TestUtils qw{ starting_points_including_examples };
-eval 'use Test::Pod 1.00'; ## no critic
-plan skip_all => 'Test::Pod 1.00 required for testing POD' if $@;
+if ( not eval 'use Test::Pod 1.00' ) { ## no critic (ProhibitStringyEval)
+ plan skip_all => 'Test::Pod 1.00 required for testing POD';
+}
all_pod_files_ok( all_pod_files( starting_points_including_examples() ) );
# Local Variables:
View
@@ -4,8 +4,9 @@ use strict;
use warnings;
use Test::More;
-eval 'use Test::Pod::Coverage 1.06'; ## no critic
-plan skip_all => 'Test::Pod::Coverage 1.00 requried to test POD' if $@;
+if ( not eval 'use Test::Pod::Coverage 1.06' ) { ## no critic (ProhibitStringyEval)
+ plan skip_all => 'Test::Pod::Coverage 1.00 requried to test POD';
+}
{
# HACK: Perl::Critic::Violation uses Pod::Parser to extract the
@@ -23,7 +24,7 @@ plan skip_all => 'Test::Pod::Coverage 1.00 requried to test POD' if $@;
# parsing. I'll look for a better solution (or file a bug report)
# when / if I have better understanding of the problem.
- no warnings;
+ no warnings; ## no critic (ProhibitNoWarnings)
require Perl::Critic::Violation;
*Perl::Critic::Violation::import = sub { 1 };
}

0 comments on commit ad9b7f2

Please sign in to comment.