t/perlcritic.t

   1 #!perl
   2
   3 use warnings FATAL => 'all';
   4 use strict;
   5 use File::Spec;
   6 use Test::More;
   7 use English qw(-no_match_vars);
   8
   9 if ( not $ENV{TEST_AUTHOR} ) {
  10     my $msg
  11         = 'Author test.  Set $ENV{TEST_AUTHOR} to a true value to run.';
  12     plan( skip_all => $msg );
  13 }
  14
  15 eval { require Test::Perl::Critic; };
  16
  17 if ($EVAL_ERROR) {
  18     my $msg = 'Test::Perl::Critic required to criticise code';
  19     plan( skip_all => $msg );
  20 }
  21
  22 #my $rcfile = File::Spec->catfile( 't', 'perlcriticrc' );
  23 #Test::Perl::Critic->import( -profile => $rcfile );
  24 #all_critic_ok();
  25 Test::Perl::Critic::all_critic_ok();
  26