Branch Coverage

blib/lib/Math/PlanePath/PythagoreanTree.pm
Criterion Covered Total %
branch 93 190 48.9


line true false branch
265 0 0 unless $dir_minimum_dxdy{"$self->{'coordinates'},$self->{'tree_type'}"}
302 0 0 unless $dir_maximum_dxdy{"$self->{'coordinates'},$self->{'tree_type'}"}
345 0 21 unless $digit_orders{$digit_order}
350 0 21 unless $tree_types{$tree_type}
366 0 56 if ($n < 1)
367 0 56 if (is_infinite($n))
371 0 56 if ($n != $int)
388 0 0 if ($self->{'coordinates'} eq 'AB' || $self->{'coordinates'} eq 'BA' || $self->{'coordinates'} eq 'SM' and $n == int $n)
392 0 0 if ($n < 1)
393 0 0 if (is_infinite($n))
407 0 56 if ($self->{'tree_type'} eq 'UArD')
411 56 0 if ($self->{'digit_order'} eq 'HtoL')
421 26 30 if ($self->{'tree_type'} eq 'FB') { }
0 30 elsif ($self->{'tree_type'} eq 'UMT') { }
429 28 14 if ($digit) { }
430 14 14 if ($digit == 1) { }
452 0 0 if ($digit) { }
453 0 0 if ($digit == 1) { }
488 34 18 if ($digit) { }
489 18 16 if ($digit == 1) { }
532 69 7 if ($n >= 2)
577 3844 1369 unless my($p, $q) = &{$self->{'xy_to_pq'};}($x, $y)
580 328 1041 unless ($p >= 2 and $q >= 1)
583 0 1041 if (is_infinite($p))
586 0 1041 if (is_infinite($q))
589 480 561 if ($p % 2 == $q % 2)
594 276 285 if ($self->{'tree_type'} eq 'FB') { }
0 285 elsif ($self->{'tree_type'} eq 'UMT') { }
596 114 771 unless ($p > $q and $q >= 1)
599 162 609 if $q <= 1 and $p <= 2
601 323 286 if ($q % 2) { }
604 119 204 if ($q > $p) { }
626 0 0 unless ($p > $q and $q >= 1)
629 0 0 if $q <= 1 and $p <= 2
631 0 0 if ($p < 2 * $q) { }
0 0 elsif ($qmod2) { }
651 90 946 if ($q <= 0 or $p <= 0 or $p <= $q)
654 166 780 if $q <= 1 and $p <= 2
656 317 463 if ($p > 2 * $q) { }
657 230 87 if ($p > 3 * $q) { }
677 0 328 if ($self->{'digit_order'} eq 'LtoH')
681 0 328 if ($self->{'tree_type'} eq 'UArD')
710 0 64 if $x1 > $x2
711 0 64 if $y1 > $y2
715 0 64 if ($self->{'coordinates'} eq 'BA')
718 0 64 if ($self->{'coordinates'} eq 'SM')
719 0 0 if ($x2 > $y2) { }
726 28 36 if ($self->{'coordinates'} eq 'PQ') { }
727 0 28 if ($x2 < 2 or $y2 < 1)
731 0 28 if ($y2 >= $x2)
735 0 28 if ($y2 < $y1)
741 0 36 if ($x2 < 3 or $y2 < 0)
747 30 34 if ($self->{'tree_type'} eq 'FB') { }
749 14 16 if ($self->{'coordinates'} eq 'PQ')
756 14 20 if ($self->{'coordinates'} eq 'PQ') { }
776 0 7 unless ($n >= 1)
784 0 0 $n >= 1 ? :
788 1 12 unless ($n >= 2)
796 0 0 unless ($n >= 1)
805 328 0 $depth >= 0 ? :
812 64 0 $depth >= 0 ? :
818 0 0 if ($depth >= 0) { }
827 0 0 $depth >= 0 ? :
923 0 0 $a < $b ? :
989 3059 1078 unless ($b >= 4 and $a % 2 and not $b % 2)
1011 1010 68 unless ($csquared == $c * $c)
1023 200 74 unless ($c > $b and $b >= 4 and not $b % 2 and $c % 2)
1030 0 74 unless ($asquared > 0)
1036 64 10 unless ($asquared == $a * $a)
1043 2 8 unless my($p, $q) = _ac_to_pq($a, $c)
1051 234 145 unless ($c > $a and $a >= 3 and $a % 2 and $c % 2)
1068 72 73 unless ($psquared == $p * $p)
1084 6 67 unless ($qsquared == $q * $q)
1101 0 0 unless ($s < $m)
1104 0 0 $s % 2 ? :
1121 1 1 if ($s % 2) { }
1122 0 1 unless ($p, $q) = _ac_to_pq($s, $c)
1124 0 1 if ($s > 2 * $p * $q)
1126 0 1 unless ($p, $q, $a) = _bc_to_pqa($s, $c)
1128 1 0 if ($s > $a)
1137 0 0 if ($m % 2) { }
1139 0 0 unless ($p, $q) = _ac_to_pq($m, $c)
1141 0 0 if ($m < 2 * $p * $q)
1144 0 0 unless ($p, $q, $a) = _bc_to_pqa($m, $c)
1147 0 0 if ($m < $a)
1165 0 0 if $s % 2
1167 0 0 unless $s >= 1
1169 0 0 unless $q * $q == $s
1171 0 0 unless $r >= 1
1173 0 0 unless $p_plus_q * $p_plus_q == $r
1187 0 0 if $s % 2
1189 0 0 unless $s >= 1
1192 0 0 unless $q * $q == $s
1194 0 0 if $t % 2
1197 0 0 if $t % $q