|
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 |
- |