| blib/lib/Perl/Lint/Policy/ControlStructures/ProhibitUntilBlocks.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 7 | 95 | if ($token_type == 100) |
| 20 | 6 | 1 | if ($$tokens[++$i]{'type'} == 107) |
| 24 | 0 | 12 | if ($token_type == 107) { } |
| 6 | 6 | elsif ($token_type == 108) { } | |
| 28 | 6 | 0 | if --$left_paren_num <= 0 |
| 31 | 6 | 0 | if ($$tokens[++$i]{'type'} == 109) |