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 10 360 if ($n == 0)
186 0 360 unless my($depthsum, $factor, $nrem) = _n0_to_depthsum_factor_rem($n, $parts)
192 360 0 if ($parts eq '4') { }
0 0 elsif ($parts eq '2') { }
0 0 elsif ($parts eq 'octant_up') { }
225 476 267 if ($ndigit) { }
226 270 206 if ($ndigit == 2)
238 178 182 if ($quad & 2)
242 177 183 if ($quad & 1)
257 17 547 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 262 285 if ($y > $x) { }
275 128 134 if ($y > -$x) { }
297 144 141 if ($y > -$x) { }
319 0 547 if (is_infinite($exp))
330 165 1553 if ($x and $x == $abs_y)
339 1279 274 if ($x + $abs_y >= $len)
345 897 382 if ($x or $y)
349 321 576 if ($y < -$x) { }
326 250 elsif ($y > $x) { }
375 0 382 if ($parts eq 'octant_up') { }
0 382 elsif ($parts ne '4') { }
395 42 8 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 16 604 if ($depth == 0)
546 0 604 unless (defined $n)
550 16 588 if ($parts eq '2')
553 61 527 if ($parts eq '1')
556 0 527 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' ? :
428 84 $parts eq '4' ? :
677 0 512 if ($n == 0)
685 428 84 if ($parts eq '4') { }
0 84 elsif ($parts eq '2') { }
0 84 elsif ($parts =~ /octant/) { }
698 0 512 if (is_infinite($exp))
716 268 1553 if ($parts ne '4')
717 0 1821 if ($parts =~ /octant/)
726 1371 450 if ($n3 >= $ncmp)
734 0 512 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)