Branch Coverage

blib/lib/Math/PlanePath/UlamWarburton.pm
Criterion Covered Total %
branch 83 140 59.2


line true false branch
75 0 0 $self->{'parts'} eq 'octant_up' ? :
96 0 0 $x_negative{$self->{'parts'}} ? :
100 0 0 $self->{'parts'} eq '4' ? :
105 0 0 $self->{'parts'} eq 'octant' ? :
109 0 0 $self->{'parts'} eq 'octant_up' ? :
143 0 0 $self->{'parts'} eq '4' ? :
151 9 11 unless (defined $self->{'n_start'})
155 0 20 unless (exists $x_negative{$parts})
165 0 370 if ($n < $self->{'n_start'})
166 0 370 if (is_infinite($n))
171 0 370 if ($n != $int)
183 7 363 if ($n == 0)
186 0 363 unless my($depthsum, $factor, $nrem) = _n0_to_depthsum_factor_rem($n, $parts)
192 363 0 if ($parts eq '4') { }
0 0 elsif ($parts eq '2') { }
0 0 elsif ($parts eq 'octant_up') { }
225 464 265 if ($ndigit) { }
226 268 196 if ($ndigit == 2)
238 176 187 if ($quad & 2)
242 177 186 if ($quad & 1)
257 14 550 if ($x == 0 and $y == 0)
262 0 0 if ($parts ne '4' and $y < 0 || $parts ne '2' && $x < ($parts eq 'octant' ? $y : 0) || $parts eq 'octant_up' && $x > $y)
270 260 290 if ($y > $x) { }
275 128 132 if ($y > -$x) { }
297 149 141 if ($y > -$x) { }
319 0 550 if (is_infinite($exp))
330 165 1553 if ($x and $x == $abs_y)
339 1268 285 if ($x + $abs_y >= $len)
345 883 385 if ($x or $y)
349 319 564 if ($y < -$x) { }
324 240 elsif ($y > $x) { }
375 0 385 if ($parts eq 'octant_up') { }
0 385 elsif ($parts ne '4') { }
395 45 5 if ($dlo)
432 0 50 if ($x1 > $x2)
433 0 50 if ($y1 > $y2)
435 0 50 $yzero ? :
0 50 $xzero ? :
449 0 9 if ($n < $self->{'n_start'})
457 28 8 if (defined(my $n_child = $self->xy_to_n($x + $dx, $y + $dy)))
458 20 8 if ($n_child > $n)
470 1 14 if ($n <= $self->{'n_start'})
477 24 13 if (defined(my $n_parent = $self->xy_to_n($x + $dx, $y + $dy)))
478 14 10 if ($n_parent < $n)
542 13 610 if ($depth == 0)
546 0 610 unless (defined $n)
550 16 594 if ($parts eq '2')
553 61 533 if ($parts eq '1')
556 0 533 if ($parts eq 'octant' or $parts eq 'octant_up')
576 0 168 if ($n < 0)
580 16 152 if ($n == 0)
583 0 152 unless my($depthsum) = _n0_to_depthsum_factor_rem($n, $self->{'parts'})
676 0 84 $parts eq '2' ? :
431 84 $parts eq '4' ? :
677 0 515 if ($n == 0)
685 431 84 if ($parts eq '4') { }
0 84 elsif ($parts eq '2') { }
0 84 elsif ($parts =~ /octant/) { }
698 0 515 if (is_infinite($exp))
716 268 1553 if ($parts ne '4')
717 0 1821 if ($parts =~ /octant/)
726 1360 461 if ($n3 >= $ncmp)
734 0 515 if ($parts eq '2')
756 0 0 if ($n < 0)
759 0 0 unless my($depthsum, $factor, $nrem) = _n0_to_depthsum_factor_rem($n, $self->{'parts'})
766 0 0 if ($parts eq '4') { }
0 0 elsif ($parts eq '2') { }
0 0 elsif ($parts eq 'octant_up') { }
781 0 0 if (@$depthsum) { }
799 0 0 unless (defined $depth)