Branch Coverage

blib/lib/Math/DifferenceSet/Planar.pm
Criterion Covered Total %
branch 288 296 97.3


line true false branch
92 14 9 if exists $memo_rotators{$order}
95 6 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 5 178 unless $next
183 164 20 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 136 if ($order > 3037000499)
237 421 1842 if $f < $factor
252 30 1179 unless $cmp
253 679 500 if ($cmp < 0) { }
266 4 4 if exists $memo_n_planes{$order}
289 594 3052 if $d < $ml
290 343 3303 if $d > $mg
292 1 234 unless $ml
293 1 233 if $ml > 1
301 15 186 if $type == 2
302 30 156 if $type == 0
311 543 197 if $elements
342 5 143 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 184 if $factor == $base
429 1 807 if $factor == $p
438 16 59 if (defined $exponent) { }
440 3 13 unless &is_prime($base)
442 6 7 if not $order or $order > 3037000499
446 1 58 if $order > 3037000499
449 2 56 unless $exponent
458 6 32 if (@_) { }
463 1 31 unless ref $this
473 3 4 defined $exponent ? :
474 2 5 if not $order or $order > $class->_data->max_order
490 6 1 unless $pds
501 46 33 $base == $order ? :
505 139 69 if (&gcd($modulus, $e) == 1) { }
513 77 2 if (my $log = $pds->ref_std)
514 74 3 $log == 1 ? :
551 9 6 defined $exponent ? :
552 9 6 if not $order or $order > $class->_data->max_order
560 2 2 if $order <= 0 or $order > $class->_data->sp_max_order
562 1 1 unless $spc
570 2 2 if $order <= 0 or $order > $class->_data->sp_max_order
572 1 1 unless $spc
582 1 42 unless ($pds)
593 2 2 if ($pds and my $lambda = $pds->ref_lex)
603 2 2 if ($pds and my $lambda = $pds->ref_gap)
614 7 3 if ($pds and my $lambda = $pds->ref_std)
628 2 40 unless $exponent = &is_prime_power($order, \$base)
631 222 1 unless $_ < 0
2 38 if (grep {$modulus <= $_ unless $_ < 0;} @_)
642 20 16 $is_m3 ? :
645 181 111 if ($c < $de) { }
646 16 165 if ++$ux > $order
648 0 181 if $ux == $lx
651 2 109 if ++$lx > $order
654 39 251 $e3 < $e2 ? :
656 2 34 if $bogus
658 18 16 if ($is_m3) { }
673 122 66 unless exists $todo{$start}
678 1 123 unless (defined delete $todo{$this})
686 20 45 if ($count == $n_mult) { }
18 27 elsif ($count >= 3) { }
687 19 1 if (&gcd($start, $modulus) == 1) { }
698 11 22 $exponent == 1 ? :
723 25 0 if (my $ref = eval { do { $class->new(@_ - 1) } })
724 1 24 unless eval { do { my($factor, $delta) = $ref->find_linear_map($this); not $ref->multiply($factor)->translate($delta)->compare($this) } }
739 1 9 unless $exponent
741 1 7 if &gcd($modulus, $lambda) != 1
744 1 12 if $l < $lambda
747 2 2 if $theta and $theta < 0 || $modulus <= $theta
750 1 3 unless $ref
752 2 1 $theta ? :
761 1 7 if $order <= 1
766 2 16 if $r1 < 0 or $modulus <= $r1 or $r1 != int $r1
768 15 13 if $r1 == $r2
769 3 10 $r1 < $r2 ? :
770 10 3 if $d > $median
771 1 12 if substr($seen, $d - 1, 1)++
787 3 25 unless $pds
856 3 20 unless $spc
899 1 39 unless wantarray
908 2 5 if $index < -$n_elems or $n_elems <= $index
911 1 4 if $x_eff >= $n_elems
934 39 127 unless $delta
937 109 18 if ($elements)
941 939 1062 if ($e < $lim) { }
960 111 16 if (defined(my $e = $that->[5]))
996 2 21 unless $rotators
998 19 2 if "ARRAY" eq ref $rotators->[0]
1001 13 1 $mx < @{$rotators;} ? :
1013 72 2 $r ? :
1023 72 2 $r ? :
1034 1 2 if $pex >= @{$princ_elems;}
1047 1 2 if $pex >= @{$princ_elems;}
1057 1 6 unless wantarray
1073 32 188 if 1 == $factor
1074 1 187 if &gcd($modulus, $factor) != 1
1079 4 183 if _is_mult($factor, $base, $mult, $modulus)
1091 337 1208 if $p0 > $p
1101 182 1 if ($lambda)
1130 30 38 unless $up
1135 285 128 if ($c < $de) { }
1136 11 274 if (++$ux > $order)
1140 0 285 if $ux == $lx
1143 0 128 if ++$lx > $order
1146 32 381 $ue < $le ? :
1148 0 68 if $bogus
1149 38 30 $up ? :
1171 1 3 $x2 ? :
1178 1 17 if $this->[2] == 1
1180 7 10 unless (defined $eta)
1215 2 1 unless (wantarray)
1225 1 1 unless (wantarray)
1232 0 2 unless @{$b;} <=> @{$a;}
1252 6 45 if $cmp
1257 7 208 if $cmp
1267 6 10 if $cmp
1273 6 13 if $cmp
1283 6 15 if $order != $that->order
1286 12 3 if $l1 and $l2
1289 1 2 if (@{$le;}) { }
1297 1 2 if $re->[$x] != $le->[$x]
1307 6 10 if $order != $that->order
1316 19 18 unless $cmp
1317 28 9 if ($cmp <= 0)
1318 7 21 if ++$li > $order
1321 23 7 if ($cmp >= 0)
1322 3 20 if ++$ri > $order
1341 1 3 unless defined $f1