Condition Coverage

blib/lib/Math/Prime/Util.pm
Criterion Covered Total %
condition 48 99 48.4


and 3 conditions

line !l l&&!r l&&r condition
153 3 129 0 $_Config{'xs'} and $_Config{'secure'}
176 120 0 1 defined $ENV{'MPU_NO_XS'} and $ENV{'MPU_NO_XS'} == 1
185 0 0 1 defined $ENV{'MPU_NO_XS'} and $ENV{'MPU_NO_XS'} == 1
211 120 0 0 $_Config{'gmp'} >= 42 and not Math::Prime::Util::GMP::is_csprng_well_seeded()
120 0 0 $_Config{'gmp'} >= 42 and not Math::Prime::Util::GMP::is_csprng_well_seeded() and &_is_csprng_well_seeded()
219 121 0 0 defined $ENV{'MPU_DEVNAMES'} and $ENV{'MPU_DEVNAMES'} == 1
290 0 0 0 not $value and $_Config{'secure'}
361 57486 4 0 ref $_[0] eq "Math::BigFloat" and not $_[0]->is_int
57490 0 0 $_BIGINT eq "Math::Pari" and $_[0] =~ /^0[bx]/
380 46 2 1 ref $_[0] eq "Math::BigFloat" and not $_[0]->is_int
387 1 0 48 $_BIGINT ne 'Math::BigInt' || $n->is_int and $n >= 0
437 0 0 0 $_[$i] < '18446744073709551615' and $_[$i] > '-9223372036854775808'
541 1 0 22 not ref $p and $p <= $_XS_MAXVAL
551 22 0 0 $p + $segment > '18446744073709551615' and $p + 1 < '18446744073709551615'
599 16 0 0 $_HAVE_GMP and defined &Math::Prime::Util::GMP::is_provable_prime_with_cert
653 4 8 6 not ref $n and $_Config{'xs'}
663 0 9 9 not ref $n and $_Config{'xs'}
675 0 57 19 not ref $n and $_Config{'xs'}
689 24 32 66 not ref $n and $_Config{'xs'}
701 0 1 9 not ref $x and $_Config{'xs'}
733 22 0 0 defined $precision and $precision <= 13

or 3 conditions

line l !l&&r !l&&!r condition
201 120 0 1 not defined $ENV{'MPU_NO_GMP'} or $ENV{'MPU_NO_GMP'} != 1
270 0 0 17 $param eq "bigint" or $param eq "trybigint"
9 0 8 $param =~ /^(assume[_ ]?)?[ge]?rh$/ or $param =~ /riemann\s*h/
328 0 0 0 $INC{$cfname} or eval { do { require $cfname; $name->import; 1 } }
373 0 60295 0 $_BIGINT ne "Math::BigInt" or $n->is_int
387 0 48 1 $_BIGINT ne 'Math::BigInt' || $n->is_int
396 0 0 27 not defined $_[0] or ref $_[0]
397 27 0 0 $_[0] >= '18446744073709551615' or $_[0] <= '-9223372036854775808'
399 27 0 0 $n > '18446744073709551615' or $n < '-9223372036854775808'
429 29 19 7 $bign > '18446744073709551615' or $bign < '-9223372036854775808'
436 0 2 0 not defined $_[$i] or ref $_[$i]
439 0 0 0 $n > '18446744073709551615' or $n < '-9223372036854775808'