| blib/lib/criticism.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 12 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 44 | 0 | 9 | unless -f $file |
| 56 | 13 | 5 | if (@args <= 1) { } |
| 87 | 0 | 8 | unless (eval { do { require Perl::Critic; require Perl::Critic::Violation; $critic = 'Perl::Critic'->new(%pc_args); my $verbose = $critic->config->verbose; Perl::Critic::Violation::set_format($verbose); @violations = $critic->critique($file); print {*STDERR;} @violations; 1 } }) |
| 88 | 0 | 0 | if ($ENV{'DEBUG'} or $criticism::PERLDB) |
| 94 | 1 | 7 | if @violations and $critic->config->criticism_fatal |
| 97 | 5 | 2 | @violations ? : |