Branch Coverage

blib/lib/Math/PlanePath/SierpinskiArrowhead.pm
Criterion Covered Total %
branch 41 74 55.4


line true false branch
87 0 0 $self->{'align'} eq 'triangular' ? :
91 0 0 $self->{'align'} eq 'triangular' ? :
136 0 0 $self->{'align'} eq 'triangular' ? :
140 0 0 $self->{'align'} eq 'triangular' ? :
191 0 0 $self->{'align'} eq 'right' ? :
205 0 17 unless (exists $x_negative{$align})
214 0 6189 if ($n < 0)
217 0 6189 if (is_infinite($n))
226 6185 4 if (my(@digits) = digit_split_lowtohigh($n, 3))
233 5562 13353 if ($digit == 0) { }
7248 6105 elsif ($digit == 1) { }
244 2617 16298 unless @digits
250 4987 11311 if ($digit == 0) { }
6193 5118 elsif ($digit == 1) { }
261 3568 12730 unless @digits
267 0 6189 if ($self->{'align'} eq 'right') { }
0 6189 elsif ($self->{'align'} eq 'left') { }
0 6189 elsif ($self->{'align'} eq 'diagonal') { }
284 0 565 if ($y < 0)
288 0 565 if ($self->{'align'} eq 'left') { }
565 0 elsif ($self->{'align'} eq 'triangular') { }
289 0 0 if ($x > 0)
295 280 285 if ($x % 2 != $y % 2)
301 0 0 if ($x < 0)
304 0 0 if ($self->{'align'} eq 'right') { }
324 0 285 if (is_infinite($level))
333 158 478 if ($y < 0 or $x < -$y or $x > $y)
337 91 387 if ($y < $len + !($x == $y || $x == -$y)) { }
341 191 196 if ($level & 1) { }
343 87 104 if ($x > 0) { }
360 95 101 if ($x < 0) { }
381 86 41 if ($x == 0 and $y == 0) { }
395 0 8 if ($y1 > $y2)
397 0 8 if ($self->{'align'} eq 'diagonal')
402 0 8 unless ($y2 >= 0)
422 0 0 if ($n < 0)
423 0 0 if (is_infinite($n))