Branch Coverage

blib/lib/Perlito/Precedence.pm
Criterion Covered Total %
branch 38 50 76.0


line true false branch
47 3742 1857 unless $$token[0] eq 'term'
51 2078 0 unless $c ge 'a' and $c le 'z' or $c ge '0' and $c le '9'
71 1485 35632 if ($s eq $tok)
74 0 1485 if (is_ident_middle($c1) and is_ident_middle($c2) || $c2 eq '(') { }
92 0 3529 if ($c01 eq "\253" or $c01 eq "\273") { }
98 0 3529 if ($c02 eq '<<' or $c02 eq '>>')
106 593 9850 if (exists $$List_Op[$len]{$op})
109 0 593 if (is_ident_middle($c1) and is_ident_middle($c2) || $c2 eq '(') { }
116 0 593 if ($c01 eq "\253" or $c01 eq "\273") { }
121 0 593 if ($c02 eq '<<' or $c02 eq '>>')
149 1116 1364 unless (defined $param)
159 403 2077 $$param{'no_space_before'} ? :
465 179 1488 if ($$token[0] eq 'space')
469 0 192 if ($$token[1] eq ',' and $$last[1] eq '*start*' || $$last[1] eq ',')
478 20 2882 if ($$Operator{'prefix'}{$$token[1]} and $$last[1] eq '*start*' || !is_term($last)) { }
483 205 2677 if ($$Operator{'postfix'}{$$token[1]} and is_term($last) and $$Allow_space_before{'postfix'}{$$token[1]} || !$last_has_space) { }
488 0 205 if ($$token[0] ne 'postfix_or_term')
494 93 2584 if ($$token[1] eq 'block' and is_term($last) and $last_has_space) { }
503 1975 609 if (is_term($token)) { }
504 0 1975 if (is_term($last))
514 609 0 if ($$Precedence{$$token[1]}) { }
516 171 438 if ($$Assoc{'right'}{$$token[1]}) { }
526 36 573 if ($$Operator{'ternary'}{$$token[1]}) { }
543 1366 1443 if ($$token[0] eq 'space') { }
551 0 1574 if (defined $token and $$token[0] ne 'end')