t/author-critic.t

   1 #!perl
   2
   3 BEGIN {
   4   unless ($ENV{AUTHOR_TESTING}) {
   5     require Test::More;
   6     Test::More::plan(skip_all => 'these tests are for testing by the author');
   7   }
   8 }
   9
  10
  11 use strict;
  12 use warnings;
  13
  14 use Test::More;
  15 use English qw(-no_match_vars);
  16
  17 eval "use Test::Perl::Critic";
  18 plan skip_all => 'Test::Perl::Critic required to criticise code' if $@;
  19 all_critic_ok();