t/perlcritic.t

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