Branch Coverage

blib/lib/Crypt/Primes.pm
Criterion Covered Total %
branch 50 68 73.5


line true false branch
555 0 0 if $params{'Verbosity'}
556 0 0 if $params{'Verbosity'}
574 18 115 if ($k <= $p0)
584 94 21 if ($k > 2 * $m) { }
588 135 188 if $rbits > $m
589 41 282 if $params{'Generator'} and $rbits > $maxfact
597 0 115 if ($params{'Relprime'})
599 0 0 if $v == 1
604 61 54 if ref $q eq "HASH"
606 0 115 if $v == 2
618 0 8170 if $v == 2
619 7395 775 if $v == 1
622 1051 7119 if (trialdiv($n, $B))
624 0 1051 if $v == 2
900 151 if $v == 1
626 632 419 if $params{'Generator'}
629 115 936 if ($b == 1 and $q > $n ** "0.333333333333333")
630 0 115 if $v == 2
631 82 33 if $v == 1
633 64 51 if ($params{'Generator'})
634 0 64 if $v == 2
635 47 17 if $v == 1
639 0 365 if ($b == 1)
640 0 0 if $v == 1
641 0 0 if $v == 2
646 4 111 if $params{'Factors'}
647 17 98 if $params{'Intermediates'}
648 64 51 if $params{'Generator'}
649 9 42 if $params{'Factors'} or $params{'Intermediates'}
667 7119 2630320 unless &Math::Pari::gmod($n, $PRIMES[$i])
681 0 8170 unless $limit
683 7697 473 if ($limit <= $PRIMES[$end])
688 48769 49609 if $limit > $PRIMES[$mid]
689 49609 48769 if $limit <= $PRIMES[$mid]