Branch Coverage

blib/lib/Math/Modular/SquareRoot.pm
Criterion Covered Total %
branch 51 66 77.2


line true false branch
22 0 0 unless $n > 0
0 88 if (ref $n eq 'Math::BigInt') { }
23 0 88 unless looks_like_number $n
27 0 88 unless int $n == $n
28 0 88 unless $n > 1
38 0 81 if (ref $n eq 'Math::BigInt') { }
39 2 79 unless looks_like_number $n
42 1 78 unless int $n == $n
67 2 17 if $S == 0
72 41 4090337 if $l == $S
132 0 5 unless @n > 0
228 0 20 unless $d == 1
233 0 33 if $b == 1
237 13 20 if $c == 1
243 7 13 if $C == 1
246 13 0 if $c > $C
247 0 13 if $C > $c
255 6 14 if $a < 0
256 7 13 if $b < 0
257 12 8 if ($a > $b) { }
263 6 14 if $A
264 7 13 if $B
265 6 14 if $A
266 7 13 if $B
268 0 20 unless $r == 1
291 0 5 if $n == 1
324 4 39 if $p == 1 or $p == 2 or $p == 3 or $p == 5 or $p == 7
325 5 34 if $p < 11
328 1 33 if $p % $s == 0
330 6 551443 unless $p % $_
21 12 unless ($n)
338 12 0 if $s < $N
341 1 3410285 if $p % $_ == 0 or gcd2($N + int(rand $D), $p) > 1