| blib/lib/Perl/Lint/Policy/ControlStructures/ProhibitNegativeExpressionsInUnlessAndUntilConditions.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 18 | 72.2 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 110 | 4053 | if ($token_type == 99 or $token_type == 100) |
| 41 | 0 | 110 | unless $token = $$tokens[++$i] |
| 42 | 54 | 56 | if ($token->{'type'} != 107) |
| 45 | 54 | 164 | if ($token_type == 106) { } |
| 54 | 110 | elsif ($invalid_op_types{$token_type}) { } | |
| 66 | 0 | 108 | if ($token_type == 107) { } |
| 0 | 108 | elsif ($token_type == 108) { } | |
| 56 | 52 | elsif ($invalid_op_types{$token_type}) { } | |
| 70 | 0 | 0 | if --$lpnum <= 0 |