Branch Coverage

blib/lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitCommaSeparatedStatements.pm
Criterion Covered Total %
branch 23 44 52.2


line true false branch
44 205 91 if is_ppi_statement_subclass($elem)
49 6 85 if _is_parent_a_constructor_or_list($elem)
50 0 85 if _is_parent_a_for_loop($elem)
52 0 85 if ($self->{'_allow_last_statement_to_be_comma_separated_in_map_and_grep'})
55 0 0 unless _is_direct_part_of_map_or_grep_block($elem)
59 249 0 unless ($self->{'_allow_last_statement_to_be_comma_separated_in_map_and_grep'} or _is_last_statement_in_a_block($child))
63 43 206 if ($child->isa('PPI::Token::Word')) { }
32 174 elsif ($child->isa('PPI::Token::Operator')) { }
64 20 23 if _succeeding_commas_are_list_element_separators($child)
67 0 32 if ($child->content eq $Perl::Critic::Policy::ValuesAndExpressions::ProhibitCommaSeparatedStatements::COMMA)
82 0 91 unless $parent
95 0 85 unless $parent
97 79 6 unless $parent->isa("PPI::Structure::For")
106 0 0 unless $parent
107 0 0 unless $parent->isa("PPI::Structure::Block")
110 0 0 unless $block_prior_sibling
111 0 0 unless $block_prior_sibling->isa("PPI::Token::Word")
121 0 249 unless $parent
122 249 0 unless $parent->isa("PPI::Structure::Block")
125 0 0 unless $next_sibling
133 8 35 if (is_perl_builtin_with_zero_and_or_one_arguments($elem) and not is_perl_builtin_with_multiple_arguments($elem))
142 0 35 unless $sibling