Branch Coverage

blib/lib/Perl/Lint/Policy/CodeLayout/ProhibitQuotedWordLists.pm
Criterion Covered Total %
branch 38 44 86.3


line true false branch
24 22 129 if ($token_type == 168 or $token_type == 192 or $token_type == 195) { }
13 116 elsif ($token_type == 93) { }
31 22 0 if ($token_type == 65)
34 22 0 if ($token_type == 107)
41 0 131 if ($token_type == 107) { }
22 109 elsif ($token_type == 108) { }
57 52 elsif ($token_type == 172 or $token_type == 173) { }
13 39 elsif ($token_type != 104) { }
45 22 0 if (--$left_paren_num <= 0)
46 10 12 if ($is_violated and $elem_num >= $min_elements)
61 6 51 if $strict
63 7 44 unless ($token->{'data'} =~ /\A[a-zA-Z-]+\Z/)
79 5 29 if ($token_type == 107) { }
8 21 elsif ($token_type == 106) { }
86 0 29 if ($token_type == 107) { }
5 24 elsif ($token_type == 108) { }
13 11 elsif ($token_type == 172 or $token_type == 173) { }
3 8 elsif ($token_type != 104) { }
90 5 0 if (--$left_paren_num <= 0)
91 2 3 if ($is_violated and $elem_num >= $min_elements)
106 3 10 if $strict
108 1 9 unless ($token->{'data'} =~ /\A[a-zA-Z-]+\Z/)