line |
true |
false |
branch |
13
|
8 |
16 |
unless exists $param{$w} |
16
|
0 |
8 |
if %param |
26
|
16 |
16 |
if (@_) |
37
|
9 |
17 |
if (ref $value eq 'Math::BigInt') { } |
|
0 |
17 |
elsif (ref $value eq 'Math::Pari') { } |
|
17 |
0 |
elsif (defined $value and not ref $value) { } |
|
0 |
0 |
elsif (defined $value) { } |
54
|
8 |
0 |
unless (defined $$dh{'priv_key'}) |
56
|
0 |
8 |
$Crypt::Random::VERSION ? : |
82
|
8 |
0 |
if $r >= $min_inc and $r < $max_exc |
89
|
8 |
0 |
$size % 8 ? : |
92
|
8 |
0 |
if (-e '/dev/urandom') { } |
94
|
0 |
8 |
unless open $fh, '/dev/urandom' |
97
|
0 |
8 |
unless $got == $bytes |
106
|
0 |
8 |
unless length $bits >= $size |