| blib/lib/Perl/Lint/Policy/BuiltinFunctions/RequireSimpleSortBlock.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 14 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 21 | 55 | if ($token_type == 70 and $token_data eq 'sort') |
| 22 | 6 | 15 | if ($token->{'type'} == 107) |
| 28 | 5 | 16 | if ($token_type != 109) |
| 37 | 14 | 226 | if ($token_type == 109) { } |
| 30 | 196 | elsif ($token_type == 110) { } | |
| 41 | 16 | 14 | if (--$left_brace_num <= 0) |
| 42 | 6 | 10 | if (scalar(@_ = split(/;/, $concat_stmt, 0)) > 1) |