t/00-testcritic.t

   1 #!/usr/bin/env perl
   2
   3 # This script can be used to run perlcritic on perl files in koha
   4
   5 use Modern::Perl;
   6 use Test::More;
   7 use English qw(-no_match_vars);
   8
   9 eval { require Test::Perl::Critic; };
  10
  11 if ( $EVAL_ERROR ) {
  12     my $msg = 'Test::Perl::Critic required to criticise code,';
  13     plan( skip_all => $msg );
  14 }
  15
  16 Test::Perl::Critic->import( -profile => '.perlcriticrc');
  17 all_critic_ok('.');