Branch Coverage

blib/lib/Perl/Critic/Policy/ControlStructures/ProhibitMultipleSubscripts.pm
Criterion Covered Total %
branch 46 56 82.1


line true false branch
16 6 15 if $elem->type ne "foreach"
20 15 120 if $s_elem->isa("PPI::Structure::Block")
23 0 15 unless $block
27 15 60 if $s_elem->isa("PPI::Token::Symbol")
28 0 60 if $s_elem->isa("PPI::Structure::List")
30 0 15 unless $iterator
33 1 14 unless $subscripts_ref
38 48 12 if ($source->isa("PPI::Token::Operator") and $source eq "->")
41 1 0 unless $source->isa("PPI::Token::Symbol") or $source->isa("PPI::Token::Word")
45 0 59 if _eq_symbol($source, "\$_")
48 2 57 if _is_delete_arg($source)
53 2 59 if $sub_value eq "\$_"
55 3 9 unless $source_is_iterator or $sub_value eq $iterator
59 10 46 if ($used_cnt and $used_cnt > 2)
73 0 116 unless $elem->isa("PPI::Token::Symbol")
81 0 57 unless @children
83 53 4 if (@children == 1)
85 1 52 if $child->isa("PPI::Token::QuoteLike::Words")
91 5 12 if $child->isa("PPI::Token::Whitespace")
92 3 9 if ($child->isa("PPI::Token::Operator") and $child eq ",")
96 7 2 $child->isa('PPI::Token::Quote') ? :
0 9 $child->isa('PPI::Token::QuoteLike::Words') ? :
101 2 7 if (ref $_) { }
108 40 19 unless ($maybe_del)
110 0 40 unless $expr and $expr->isa("PPI::Statement")
112 26 14 unless $parens and $parens->isa("PPI::Structure::List")
117 0 33 unless $maybe_del
118 13 20 unless $maybe_del->isa("PPI::Token::Word")