| blib/lib/Perl/Lint/Policy/ValuesAndExpressions/ProhibitCommaSeparatedStatements.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 20 | 21 | 95.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 30 | 4 | 1 | 25 | $token_type != 107 and $token_type != 109 |
| 5 | 1 | 24 | $token_type != 107 and $token_type != 109 and $token_type != 111 | |
| 45 | 6 | 8 | 9 | $token_type == 70 and is_perl_builtin_which_take_multiple_arguments($token_data) |
| 68 | 3 | 2 | 2 | $is_map_or_grep and not $allow_last_statement_to_be_comma_separated_in_map_and_grep |
| 153 | 0 | 1 | 1 | $does_comma_exist and $is_semi_colon_in_paren |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 37 | 6 | 17 | 22 | $token_type == 122 or $token_type == 70 |
| 49 | 2 | 2 | 5 | $token_data eq 'map' || $token_data eq 'grep' |