blib/lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitCommaSeparatedStatements.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 9 | 12 | 75.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
132 | 45 | 1 | 16 | is_perl_builtin_with_zero_and_or_one_arguments($elem) and not is_perl_builtin_with_multiple_arguments($elem) |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
59 | 3 | 0 | 376 | $self->{'_allow_last_statement_to_be_comma_separated_in_map_and_grep'} or _is_last_statement_in_a_block($child) |
85 | 4 | 10 | 121 | $parent->isa('PPI::Structure::Constructor') || $parent->isa('PPI::Structure::List') |
113 | 1 | 0 | 0 | $block_prior_sibling eq 'map' || $block_prior_sibling eq 'grep' |