Lines 3-9
Link Here
|
3 |
# This script can be used to run perlcritic on perl files in koha |
3 |
# This script can be used to run perlcritic on perl files in koha |
4 |
|
4 |
|
5 |
use Modern::Perl; |
5 |
use Modern::Perl; |
6 |
use Test::NoWarnings qw( had_no_warnings ); |
|
|
7 |
use Test::More; |
6 |
use Test::More; |
8 |
use English qw(-no_match_vars); |
7 |
use English qw(-no_match_vars); |
9 |
|
8 |
|
Lines 17-21
if ($EVAL_ERROR) {
Link Here
|
17 |
Test::Perl::Critic->import( -profile => '.perlcriticrc' ); |
16 |
Test::Perl::Critic->import( -profile => '.perlcriticrc' ); |
18 |
my @files = map { chomp; $_ } `git ls-tree -r HEAD --name-only`; # only files part of git |
17 |
my @files = map { chomp; $_ } `git ls-tree -r HEAD --name-only`; # only files part of git |
19 |
all_critic_ok(@files); |
18 |
all_critic_ok(@files); |
20 |
|
|
|
21 |
had_no_warnings; |
22 |
- |