Branch Coverage

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


line true false branch
44 205 89 if is_ppi_statement_subclass($elem)
49 6 83 if _is_parent_a_constructor_or_list($elem)
50 0 83 if _is_parent_a_for_loop($elem)
52 0 83 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 247 0 unless ($self->{'_allow_last_statement_to_be_comma_separated_in_map_and_grep'} or _is_last_statement_in_a_block($child))
63 41 206 if ($child->isa('PPI::Token::Word')) { }
32 174 elsif ($child->isa('PPI::Token::Operator')) { }
64 18 23 if _succeeding_commas_are_list_element_separators($child)
67 0 32 if ($child->content eq $Perl::Critic::Policy::ValuesAndExpressions::ProhibitCommaSeparatedStatements::COMMA)
82 0 89 unless $parent
95 0 83 unless $parent
97 77 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 247 unless $parent
122 247 0 unless $parent->isa("PPI::Structure::Block")
125 0 0 unless $next_sibling
133 8 33 if (is_perl_builtin_with_zero_and_or_one_arguments($elem) and not is_perl_builtin_with_multiple_arguments($elem))
142 0 33 unless $sibling