Branch Coverage

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


line true false branch
44 233 135 if is_ppi_statement_subclass($elem)
49 14 121 if _is_parent_a_constructor_or_list($elem)
50 0 121 if _is_parent_a_for_loop($elem)
52 2 119 if ($self->{'_allow_last_statement_to_be_comma_separated_in_map_and_grep'})
55 1 1 unless _is_direct_part_of_map_or_grep_block($elem)
59 376 0 unless ($self->{'_allow_last_statement_to_be_comma_separated_in_map_and_grep'} or _is_last_statement_in_a_block($child))
63 62 314 if ($child->isa('PPI::Token::Word')) { }
77 237 elsif ($child->isa('PPI::Token::Operator')) { }
64 25 37 if _succeeding_commas_are_list_element_separators($child)
67 17 60 if ($child->content eq $Perl::Critic::Policy::ValuesAndExpressions::ProhibitCommaSeparatedStatements::COMMA)
82 0 135 unless $parent
95 0 121 unless $parent
97 112 9 unless $parent->isa("PPI::Structure::For")
106 0 2 unless $parent
107 1 1 unless $parent->isa("PPI::Structure::Block")
110 0 1 unless $block_prior_sibling
111 0 1 unless $block_prior_sibling->isa("PPI::Token::Word")
120 0 376 unless $parent
121 376 0 unless $parent->isa("PPI::Structure::Block")
124 0 0 unless $next_sibling
132 16 46 if (is_perl_builtin_with_zero_and_or_one_arguments($elem) and not is_perl_builtin_with_multiple_arguments($elem))
141 0 46 unless $sibling