| blib/lib/Perl/Critic/Policy/Mardem/ProhibitLargeBlock.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 8 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 55 | 1 | 26 | unless ($s) |
| 60 | 6 | 20 | if ($statement_count <= $self->{'_statement_count_limit'}) |
| 65 | 0 | 20 | unless ($block_keyword) |
| 69 | 2 | 18 | if ("SUB" eq $block_keyword) |