| blib/lib/Perl/Critic/Policy/Tics/ProhibitLongLines.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 16 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 49 | 0 | 9 | unless $merge{'base_max'} =~ /\A\d+\z/ and $merge{'base_max'} >= 1 |
| 52 | 9 | 0 | unless exists $merge{'hard_max'} |
| 55 | 0 | 9 | unless do { no warnings; ($merge{'hard_max'} = int $merge{'hard_max'}) >= 1 } |
| 57 | 0 | 9 | unless $merge{'pct_allowed'} =~ /\A\d+\z/ and $merge{'pct_allowed'} >= 0 |
| 81 | 0 | 9 | $top->can('filename') ? : |
| 86 | 531 | 15 | unless $length > $base |
| 88 | 2 | 13 | if ($length > $limit) { } |
| 116 | 4 | 5 | if ($viols > $allowed) { } |