| line |
true |
false |
branch |
|
30
|
0 |
2 |
unless $bits |
|
31
|
0 |
2 |
if $param{'Seed'} and length $param{'Seed'} != 20 |
|
35
|
2 |
0 |
unless ($param{'Seed'} or wantarray or $param{'PurePerl'}) |
|
37
|
0 |
2 |
$^O eq 'MSWin32' ? : |
|
39
|
2 |
0 |
if ($openssl) |
|
40
|
0 |
2 |
if $v |
|
42
|
0 |
2 |
unless open NULL, ">", "File::Spec"->devnull |
|
51
|
0 |
2 |
if $? |
|
56
|
0 |
42 |
if (/^\s+(\w):\s*$/) |
|
60
|
28 |
14 |
if (/^\s*((?:[0-9a-f]{2,2}:?)+)\s*$/) |
|
61
|
0 |
28 |
if defined $cur_part |
|
67
|
0 |
2 |
if (scalar keys %parts == 3) |
|
84
|
0 |
169 |
if $v |
|
86
|
0 |
169 |
$param{'Seed'} ? : |
|
92
|
167 |
2 |
unless isprime($q) |
|
95
|
0 |
2 |
if $v |
|
102
|
0 |
287 |
if $v |
|
107
|
287 |
861 |
if $k == $n |
|
113
|
2 |
285 |
if $p >= $p_test and isprime($p) |
|
114
|
285 |
0 |
unless ++$counter >= 4096 |
|
117
|
0 |
2 |
if $v |
|
123
|
0 |
2 |
if $g == 1 |
|
125
|
0 |
2 |
if $v |
|
132
|
0 |
2 |
wantarray ? : |
|
142
|
2 |
0 |
if $priv_key >= $key->q |
|
143
|
0 |
2 |
if $priv_key == 0 |
|
154
|
1317 |
7 |
unless vec($s, $i, 8) == 0 |