| blib/lib/Perl/Lint/Policy/ControlStructures/ProhibitDeepNests.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 24 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 90 | 437 | if ($token_type == 109) |
| 25 | 16 | 74 | if ($lbnum == 0) |
| 31 | 8 | 82 | if ($lbnum > $max_nexts) |
| 44 | 90 | 347 | if ($token_type == 110) |
| 49 | 2 | 252 | if ($token_type == 166 or $token_type == 194 or $token_type == 63 or $token_type == 70 and $token_data eq 'eval') |
| 57 | 0 | 95 | unless ($token) |
| 61 | 1 | 94 | if ($$token{'type'} == 125) |
| 63 | 0 | 1 | unless $token |
| 66 | 4 | 91 | if ($$token{'type'} == 109) |
| 72 | 0 | 8 | if ($token_type == 109) { } |
| 4 | 4 | elsif ($token_type == 110) { } | |
| 76 | 4 | 0 | if --$unnecessary_lbnum <= 0 |