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