# $Id$ # $Source$ # $Author$ # $HeadURL$ # $Revision$ # $Date$ use strict; use warnings; use File::Spec; use Test::More; use English qw(-no_match_vars); use FindBin qw($Bin); if ($ENV{TEST_COVERAGE}) { plan( skip_all => 'Disabled when testing coverage.' ); } if ( not $ENV{CLASS_DOT_AUTHOR} ) { my $msg = 'Author test. Set $ENV{CLASS_DOT_AUTHOR} to a true value to run.'; plan( skip_all => $msg ); } eval { require Test::Perl::Critic; }; if ( $EVAL_ERROR ) { my $msg = 'Test::Perl::Critic required to criticise code'; plan( skip_all => $msg ); } my $rcfile = File::Spec->catfile( $Bin, 'perlcriticrc' ); Test::Perl::Critic->import( -profile => $rcfile ); # TODO inc/M/ + inc/Module/Build/M.pm all_critic_ok('lib/'); # Local Variables: # mode: cperl # cperl-indent-level: 4 # fill-column: 78 # End: # vim: expandtab tabstop=4 shiftwidth=4 shiftround