Branch Coverage

blib/lib/Combinator.pm
Criterion Covered Total %
branch 18 20 90.0


line true false branch
622 26 0 if $_[1]
623 10 16 if (not $_[0][0])
624 4 6 if ($_[0][1])
631 0 29 if ($_[0][0]) { }
642 18 27 if (@_ <= 1)
657 5 14 if substr($code, -1) eq "\n"
660 1 9 if (@ser == 1 and not $head =~ /$cir_par_pat/ and not $head =~ /$cir_begin_pat/ and not $head =~ /$nex_begin_pat/)
667 8 10 $delayed ? :
2 16 $head =~ /^(?:$cir_par_pat|$cir_begin_pat)$/ ? :
8 10 $delayed ? :