| blib/lib/Perl/Lint/Policy/BuiltinFunctions/ProhibitLvalueSubstr.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 10 | 46 | if ($token_type == 70 and $token_data eq 'substr') { } |
| 1 | 45 | elsif ($token_type == 93) { } | |
| 22 | 8 | 2 | if ($token->{'type'} == 107) |
| 28 | 0 | 24 | if ($token_type == 107) { } |
| 8 | 16 | elsif ($token_type == 108) { } | |
| 32 | 8 | 0 | if (--$left_paren_num <= 0) |
| 34 | 6 | 2 | if ($next_token->{'type'} == 65) |
| 51 | 1 | 0 | if ($token->{'type'} == 171) |
| 53 | 1 | 0 | if ($token_data <= 5.004) |