Branch Coverage

blib/lib/Perlito6/Precedence.pm
Criterion Covered Total %
branch 39 50 78.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 1 3528 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')