| blib/lib/Perl/Lint/Policy/InputOutput/ProhibitOneArgSelect.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 16 | 81.2 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 10 | 7 | if ($token_type == 70 and $token_data eq 'select') |
| 23 | 3 | 7 | if ($token_type == 107) { } |
| 28 | 0 | 12 | if ($token_type == 107) { } |
| 3 | 9 | elsif ($token_type == 108) { } | |
| 32 | 3 | 0 | if --$left_paren_num <= 0 |
| 38 | 2 | 1 | if ($args_num == 1) |
| 52 | 7 | 7 | if ($token_type == 106) { } |
| 59 | 7 | 0 | if ($args_num == 1) |