Branch Coverage

blib/lib/Math/DifferenceSet/Planar.pm
Criterion Covered Total %
branch 277 286 96.8


line true false branch
92 13 8 if exists $memo_rotators{$order}
95 5 3 if ($space) { }
1 2 elsif (_n_planes($order, $exponent, $modulus) <= $_MAX_ENUM_COUNT) { }
118 14 82 if (substr $sieve, $x, 1)
119 3 11 if (0 == $modulus % $x)
132 1 10 if $mult == @rot
150 1 1 if $pf[-1] == $modulus
154 2 20 if $mx >= $n_planes
159 9 77 unless $x % $p
164 42 223 if $e < $x
179 3 58 unless $next
183 46 14 if (++$index[$i] < $depths->[$i])
212 2 23 if $base <= 0 or $exponent < 0
213 6 17 if &logint($base, 2) * $exponent >= 63
216 26 21 if 1 & $exponent
217 30 17 if $exponent >>= 1
225 1 135 if ($order > 3037000499)
237 100 828 if $f < $factor
252 37 701 unless $cmp
253 286 415 if ($cmp < 0) { }
266 4 4 if exists $memo_n_planes{$order}
289 172 449 if $d < $ml
290 124 497 if $d > $mg
292 1 113 unless $ml
293 1 112 if $ml > 1
301 15 64 if $type == 2
302 30 34 if $type == 0
311 478 76 if $elements
342 5 141 unless (defined $current_data)
359 109 45 $delta ? :
361 15 12 if (@{$ref->[7];}) { }
367 0 16 unless exists $this_e{&mulmod($e, $ro, $modulus)}
378 9 12 unless exists $this_e{&mulmod($e, $ro, $modulus)}
384 0 27 unless $factor
386 26 1 if ($ref_lambda)
398 2 38 if $this == $that
400 2 36 if $order != $that->order
403 26 10 if (not $log_that) { }
1 9 elsif (not $log_this) { }
409 35 1 $log_this ? :
425 3 64 if $factor == $base
429 1 327 if $factor == $p
439 16 58 if (defined $exponent) { }
442 3 13 unless &is_prime($base)
444 6 7 if not $order or $order > 3037000499
448 1 57 if $order > 3037000499
451 2 55 unless $exponent
460 6 30 if (@_) { }
465 1 29 unless ref $this
475 3 4 defined $exponent ? :
476 2 5 if not $order or $order > $class->_data->max_order
492 6 1 unless $pds
503 46 32 $base == $order ? :
507 137 66 if (&gcd($modulus, $e) == 1) { }
515 76 2 if (my $log = $pds->ref_std)
516 73 3 $log == 1 ? :
553 9 6 defined $exponent ? :
554 9 6 if not $order or $order > $class->_data->max_order
562 2 2 if $order <= 0 or $order > $class->_data->sp_max_order
564 1 1 unless $spc
572 2 2 if $order <= 0 or $order > $class->_data->sp_max_order
574 1 1 unless $spc
584 1 41 unless ($pds)
594 2 2 if ($pds and my $lambda = $pds->ref_lex)
604 2 2 if ($pds and my $lambda = $pds->ref_gap)
615 7 3 if ($pds and my $lambda = $pds->ref_std)
629 2 40 unless $exponent = &is_prime_power($order, \$base)
632 222 1 unless $_ < 0
2 38 if (grep {$modulus <= $_ unless $_ < 0;} @_)
645 150 107 if ($c < $de) { }
646 13 137 if ++$ux > $order
648 0 150 if $ux == $lx
651 0 107 if ++$lx > $order
654 22 235 $e3 < $e2 ? :
656 0 36 if $bogus
659 16 20 if ($order % 3 != 1) { }
18 2 elsif ($zeta or not $elements->[0]) { }
676 122 68 unless exists $todo{$start}
681 3 123 unless (defined delete $todo{$this})
689 20 45 if ($count == $n_mult) { }
18 27 elsif ($count >= 3) { }
690 19 1 if (&gcd($start, $modulus) == 1) { }
701 11 22 $exponent == 1 ? :
726 25 0 if (my $ref = eval { do { $class->new(@_ - 1) } })
727 1 24 unless eval { do { my($factor, $delta) = $ref->find_linear_map($this); not $ref->multiply($factor)->translate($delta)->compare($this) } }
742 1 9 unless $exponent
744 1 7 if &gcd($modulus, $lambda) != 1
747 1 12 if $l < $lambda
750 2 2 if $theta and $theta < 0 || $modulus <= $theta
753 1 3 unless $ref
755 2 1 $theta ? :
764 1 7 if $order <= 1
769 2 16 if $r1 < 0 or $modulus <= $r1 or $r1 != int $r1
771 15 13 if $r1 == $r2
772 3 10 $r1 < $r2 ? :
773 10 3 if $d > $median
774 1 12 if substr($seen, $d - 1, 1)++
790 3 25 unless $pds
859 3 20 unless $spc
902 1 39 unless wantarray
911 2 5 if $index < -$n_elems or $n_elems <= $index
914 1 4 if $x_eff >= $n_elems
937 36 65 unless $delta
940 47 18 if ($elements)
944 204 185 if ($e < $lim) { }
963 49 16 if (defined(my $e = $that->[5]))
999 2 19 unless $rotators
1001 17 2 if "ARRAY" eq ref $rotators->[0]
1004 13 1 $mx < @{$rotators;} ? :
1016 12 1 $r ? :
1026 12 1 $r ? :
1034 1 6 unless wantarray
1050 28 68 if 1 == $factor
1051 1 67 if &gcd($modulus, $factor) != 1
1056 4 63 if _is_mult($factor, $base, $mult, $modulus)
1068 31 314 if $p0 > $p
1079 62 1 if ($lambda)
1108 30 38 unless $up
1113 285 128 if ($c < $de) { }
1114 11 274 if (++$ux > $order)
1118 0 285 if $ux == $lx
1121 0 128 if ++$lx > $order
1124 32 381 $ue < $le ? :
1126 0 68 if $bogus
1127 38 30 $up ? :
1149 1 3 $x2 ? :
1156 1 17 if $this->[2] == 1
1158 7 10 unless (defined $eta)
1203 6 45 if $cmp
1208 7 208 if $cmp
1218 6 10 if $cmp
1224 6 13 if $cmp
1234 6 15 if $order != $that->order
1237 12 3 if $l1 and $l2
1240 1 2 if (@{$le;}) { }
1248 1 2 if $re->[$x] != $le->[$x]
1258 6 10 if $order != $that->order
1267 19 18 unless $cmp
1268 28 9 if ($cmp <= 0)
1269 7 21 if ++$li > $order
1272 23 7 if ($cmp >= 0)
1273 3 20 if ++$ri > $order
1292 1 3 unless defined $f1