| line |
true |
false |
branch |
|
29
|
0 |
0 |
unless $bits |
|
30
|
0 |
0 |
if $param{'Seed'} and length $param{'Seed'} != 20 |
|
34
|
0 |
0 |
unless ($param{'Seed'} or wantarray or $param{'PurePerl'}) |
|
37
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
39
|
0 |
0 |
if ($openssl) |
|
40
|
0 |
0 |
if $v |
|
55
|
0 |
0 |
if (/^\s+(\w):\s*$/) |
|
59
|
0 |
0 |
if (/^\s*((?:[0-9a-f]{2,2}:?)+)\s*$/) |
|
66
|
0 |
0 |
if (scalar keys %parts == 3) |
|
82
|
0 |
0 |
if $v |
|
84
|
0 |
0 |
$param{'Seed'} ? : |
|
91
|
0 |
0 |
unless isprime($q) |
|
94
|
0 |
0 |
if $v |
|
100
|
0 |
0 |
if $v |
|
106
|
0 |
0 |
if $k == $n |
|
112
|
0 |
0 |
if $p >= $p_test and isprime($p) |
|
113
|
0 |
0 |
unless ++$counter >= 4096 |
|
116
|
0 |
0 |
if $v |
|
122
|
0 |
0 |
if $g == 1 |
|
124
|
0 |
0 |
if $v |
|
131
|
0 |
0 |
wantarray ? : |
|
141
|
0 |
0 |
if $priv_key >= $key->q |
|
142
|
0 |
0 |
if $priv_key == 0 |
|
153
|
0 |
0 |
unless vec($s, $i, 8) == 0 |