Branch Coverage

blib/lib/Math/PlanePath/LCornerTree.pm
Criterion Covered Total %
branch 61 342 17.8


line true false branch
260 0 0 $any_num_children_2{$$self{'parts'}} ? :
290 0 13 unless (exists $parts_to_numroots{$parts})
309 0 0 if ($n < 0)
310 0 0 if (is_infinite($n))
315 0 0 if ($n != $int)
326 0 0 if (is_infinite($n))
330 0 0 if ($parts eq 'diagonal-1')
331 0 0 if ($n <= 3)
353 0 0 if ($parts eq 'wedge') { }
0 0 elsif ($parts eq 'wedge+1') { }
0 0 elsif ($parts eq 'diagonal') { }
0 0 elsif ($parts eq 'diagonal-1') { }
0 0 elsif ((my $numroots = $parts_to_numroots{$parts}) > 1) { }
356 0 0 if ($n < $noct) { }
366 0 0 if ($n < $noct) { }
380 0 0 if ($n < $noct) { }
0 0 elsif ($n >= $nwidth - $noct) { }
397 0 0 if ($n < $noct) { }
0 0 elsif ($n >= $nwidth - $noct) { }
423 0 0 if ($parts eq '3')
424 0 0 if ($quad == 1)
425 0 0 if ($quad == 2)
429 0 0 if ($parts eq 'octant_up') { }
0 0 elsif ($parts eq 'octant_up+1') { }
447 0 0 if $_
464 0 0 if ($quad & 1)
467 0 0 if ($quad & 2)
490 0 0 if ($parts eq '3') { }
0 0 elsif ($parts eq 'octant') { }
0 0 elsif ($parts eq 'octant+1') { }
0 0 elsif ($parts eq 'octant_up') { }
0 0 elsif ($parts eq 'octant_up+1') { }
0 0 elsif ($parts eq 'wedge') { }
0 0 elsif ($parts eq 'wedge+1') { }
0 0 elsif ($parts eq 'diagonal') { }
0 0 elsif ($parts eq 'diagonal-1') { }
491 0 0 if ($x < 0) { }
492 0 0 if ($y < 0)
498 0 0 if ($y < 0)
505 0 0 if ($y < 0 or $y > $x)
507 0 0 if ($x < 0 or $y < 0 or $y > $x + 1)
510 0 0 if ($x < 0 or $x > $y)
512 0 0 if ($y < 0 or $x < 0 or $x > $y + 1)
515 0 0 if ($x < -1 - $y or $x > $y)
516 0 0 if ($x < 0)
521 0 0 if ($y < 0 or $x < -2 - $y or $x > $y + 1)
522 0 0 if ($x < 0)
528 0 0 if ($x < -1 - $y)
529 0 0 if ($y < 0) { }
0 0 elsif ($x < 0) { }
542 0 0 if ($x == 0 and $y == 0)
545 0 0 if ($x < -$y)
546 0 0 if ($y <= 0) { }
0 0 elsif ($x <= 0) { }
563 0 0 if ($y < 0)
564 0 0 if ($parts ne '4')
572 0 0 if ($x < 0)
573 0 0 if ($parts eq '1')
583 0 0 if (is_infinite($x))
586 0 0 if (is_infinite($y))
609 0 0 $x >= $len || $y >= $len ? :
0 0 if ($depthbits[$i] = $x >= $len || $y >= $len ? 1 : 0)
612 0 0 if ($y < $len) { }
0 0 elsif ($x >= $len) { }
637 0 0 if ($quad)
642 0 0 if ($parts eq 'octant_up' or $parts eq 'octant_up+1' or $parts eq 'wedge' or $parts eq 'wedge+1' or $parts eq 'diagonal' or $parts eq 'diagonal-1')
649 0 0 if ($parts eq 'diagonal-1')
650 0 0 if ($depth)
653 0 0 if ($parts eq 'octant_up+1') { }
0 0 elsif ($parts eq 'wedge+1') { }
654 0 0 if ($depth)
656 0 0 if ($depth)
678 0 0 if $x1 > $x2
679 0 0 if $y1 > $y2
683 0 0 if ($parts eq 'octant') { }
0 0 elsif ($parts eq 'octant+1') { }
0 0 elsif ($parts eq 'octant_up') { }
0 0 elsif ($parts eq 'octant_up+1') { }
0 0 elsif ($parts eq 'wedge') { }
0 0 elsif ($parts eq 'wedge+1') { }
684 0 0 if ($y2 < 0 or $x2 < $y1)
687 0 0 if ($x2 < 0 or $y2 < 0 or $y1 > $x2 + 1)
691 0 0 if ($x2 < 0 or $y2 < $x1)
694 0 0 if ($x2 < 0 or $y2 < 0 or $x1 > $y2 + 1)
698 0 0 if ($x2 < -1 - $y2 or $x1 > $y2)
701 0 0 if ($x2 < -2 - $y2 or $x1 > $y2 + 1)
706 0 0 if ($parts eq 'diagonal') { }
0 0 elsif ($parts eq 'diagonal-1') { }
0 0 elsif ($parts eq '1') { }
707 0 0 if ($x2 < -1 - $y2)
710 0 0 if ($x2 < -$y2)
713 0 0 if ($x2 < 0 or $y2 < 0)
719 0 0 if ($parts eq '2') { }
720 0 0 if ($y2 < 0)
725 0 0 if ($parts eq '3')
726 0 0 if ($x2 < 0 and $y2 < 0)
735 0 0 if ($parts eq 'diagonal-1')
757 0 62 if ($depth < 0)
758 0 62 if (is_infinite($depth))
761 10 52 if ($parts eq 'diagonal-1')
762 2 8 if ($depth <= 1)
774 86 55 if ($bit)
780 13 47 if ($parts eq 'octant' or $parts eq 'octant_up') { }
0 47 elsif ($parts eq 'octant+1' or $parts eq 'octant_up+1') { }
9 38 elsif ($parts eq 'wedge') { }
0 38 elsif ($parts eq 'wedge+1') { }
9 29 elsif ($parts eq 'diagonal') { }
8 21 elsif ($parts eq 'diagonal-1') { }
784 0 0 if ($depth)
789 0 0 if ($depth)
805 0 158 if ($n < 0)
807 0 158 if (is_infinite($n))
811 19 139 if ($$self{'parts'} eq 'diagonal-1')
812 2 17 if ($n == 0)
817 17 139 if ($$self{'parts'} eq 'diagonal-1')
842 18 138 if ($n < $numroots)
849 32 106 if ($parts eq 'octant' or $parts eq 'octant_up') { }
0 106 elsif ($parts eq 'octant+1' or $parts eq 'octant_up+1') { }
28 78 elsif ($parts eq 'wedge') { }
0 78 elsif ($parts eq 'wedge+1') { }
15 63 elsif ($parts eq 'diagonal') { }
17 46 elsif ($parts eq 'diagonal-1') { }
871 2 15 if ($n <= 3)
894 109 238 if ($parts eq 'wedge' or $parts eq 'diagonal') { }
0 238 elsif ($parts eq 'wedge+1') { }
48 190 elsif ($parts eq 'diagonal-1') { }
84 106 elsif ($nhalf) { }
902 0 84 if ($parts eq 'octant+1' or $parts eq 'octant_up+1')
910 214 133 if ($n >= $ncmp) { }
919 136 211 unless $bitpos >= 0
933 43 93 if ($parts eq 'wedge' or $parts eq 'diagonal') { }
0 93 elsif ($parts eq 'wedge+1') { }
15 78 elsif ($parts eq 'diagonal-1') { }
0 78 elsif ($parts eq 'octant+1' or $parts eq 'octant_up+1') { }
32 46 elsif ($nhalf) { }
957 0 0 if ($n < 0)
964 0 0 if (defined(my $n_surround = $self->xy_to_n($x + $surround8_dx[$i], $y + $surround8_dy[$i])))
967 0 0 if ($n_surround > $n)
970 0 0 if (defined $n_parent and $n_parent == $n)
986 0 0 if (not defined $want_depth or ($want_depth -= 1) < 0)
993 0 0 if (defined(my $n_surround = $self->xy_to_n($x + $surround8_dx[$i], $y + $surround8_dy[$i])))
998 0 0 if ($depth_surround == $want_depth)
1011 0 0 if ($n < 0)
1012 0 0 if (is_infinite($n))
1018 0 0 if ($parts eq 'octant+1') { }
0 0 elsif ($parts eq 'octant_up') { }
0 0 elsif ($parts eq 'octant_up+1') { }
0 0 elsif ($parts eq 'wedge') { }
0 0 elsif ($parts eq 'wedge+1') { }
0 0 elsif ($parts eq 'diagonal') { }
0 0 elsif ($parts eq 'diagonal-1') { }
0 0 elsif ((my $numroots = $parts_to_numroots{$parts}) > 1) { }
1019 0 0 if ($ndepth > 0 and $n == $nwidth - 1)
1027 0 0 if ($n == 0)
1028 0 0 $ndepth == 0 ? :
1037 0 0 if ($n < $noct) { }
1044 0 0 if ($ndepth > 0 and $n == 0 || $n == $nwidth - 1)
1049 0 0 if ($n < $noct) { }
1058 0 0 if ($n < $noct) { }
0 0 elsif ($n >= $nwidth - $noct) { }
1068 0 0 if (@$depthbits < 2)
1072 0 0 if ($n == 0 or $n == $nwidth - 1)
1077 0 0 if ($n < $noct) { }
0 0 elsif ($n >= $nwidth - $noct) { }
1098 0 0 unless ($$depthbits[$i] ^= 1)
1099 0 0 if (_divrem_mutate($n, 3) != 1)
1111 0 0 if (ref $n and $n->isa('Math::BigInt'))
1113 0 0 if (not ref $d or $d < 1000000)
1129 0 0 if (ref $_[0] and $_[0]->isa('Math::BigInt')) { }
1131 0 0 if (not ref $d or $d < 1000000)
1151 0 0 unless (defined $depth)