3 use warnings FATAL => 'all';
7 use English qw(-no_match_vars);
9 if ( not $ENV{TEST_AUTHOR} ) {
11 = 'Author test. Set $ENV{TEST_AUTHOR} to a true value to run.';
12 plan( skip_all => $msg );
15 eval { require Test::Perl::Critic; };
18 my $msg = 'Test::Perl::Critic required to criticise code';
19 plan( skip_all => $msg );
22 #my $rcfile = File::Spec->catfile( 't', 'perlcriticrc' );
23 #Test::Perl::Critic->import( -profile => $rcfile );
25 Test::Perl::Critic::all_critic_ok();