Branch Coverage

blib/lib/Math/Polynomial/ModInt.pm
Criterion Covered Total %
branch 72 72 100.0


line true false branch
85 5 20 if @{$evec;} < @{$vec;}
86 16 4 if (@{$evec;} == @{$vec;})
88 1 15 unless $i
98 1 19 unless @{$vec;}
128 1 12 unless (@_ or ref $this)
131 2 497 if (grep {$_->is_undefined;} @_)
134 1 496 if (grep {$_->modulus <= 1;} @_)
142 481 482 if ref $this
143 1 481 if @_
178 1 3 if $degree < 0
180 1 2 if $leader->residue == 1
193 148 2 if (defined $modulus) { }
1 1 elsif (ref $this) { }
194 1 147 unless $modulus > 1
210 135 13 @coeff ? :
215 2 1 unless (defined $modulus)
216 1 1 unless (ref $this)
234 2 4 unless (defined $index)
253 1 7 if $degree <= $lambda
257 7 9 if $i == $lambda
266 1 15 if $lsc->is_zero
267 5 10 if ($this->degree == 1)
269 1 4 if $mscr == 1
270 2 2 if $mscr == -1
274 3 63 if $this->evaluate($root)->is_zero
283 1 15 if $n <= 0
284 1 14 if $n == 1
285 1 13 unless $this->coeff(0)
286 1 11 if $this->gcd($this->differentiate)->degree > 0
289 10 1 if ($p <= 43 or log $p - 20 <= $n * "0.24" + "2.68")
290 6 4 2 < $p && $p <= $n ? :
291 2 8 if defined $rp->first_root
292 2 6 if $n <= 3
301 4 22 if $j >= $n - 1
302 15 7 if ($j++)
308 2 4 if _linearly_dependent(sub { return undef if $j >= $n - 1; if ($j++) { $aj = $aj * $xp % $this; $bj <<= 1; } ; return [($aj - $bj)->coeff]; } )