Lines 9-17
use English qw(-no_match_vars);
Link Here
|
9 |
eval { require Test::Perl::Critic; }; |
9 |
eval { require Test::Perl::Critic; }; |
10 |
|
10 |
|
11 |
if ( $EVAL_ERROR ) { |
11 |
if ( $EVAL_ERROR ) { |
12 |
my $msg = 'Test::Perl::Critic required to criticise code,'; |
12 |
my $msg = 'Test::Perl::Critic required to criticise code'; |
13 |
plan( skip_all => $msg ); |
13 |
plan( skip_all => $msg ); |
14 |
} |
14 |
} |
15 |
|
15 |
|
16 |
Test::Perl::Critic->import( -profile => '.perlcriticrc'); |
16 |
Test::Perl::Critic->import( -profile => '.perlcriticrc'); |
17 |
all_critic_ok('.'); |
17 |
# Test all perl files excluding Koha/Object.pm, see t/00-testcritic_2.t |
|
|
18 |
my $koha_object_module = ( -e 'Koha/Object.pm' ? '' : 'lib/' ) . 'Koha/Object.pm'; |
19 |
my @files = grep { $_ ne $koha_object_module } Perl::Critic::Utils::all_perl_files('.'); |
20 |
all_critic_ok( @files ); |