| line |
true |
false |
branch |
|
28
|
0 |
1 |
unless $bits |
|
29
|
0 |
1 |
if $param{'Seed'} and length $param{'Seed'} != 20 |
|
33
|
1 |
0 |
unless ($param{'Seed'} or wantarray or $param{'PurePerl'}) |
|
36
|
0 |
1 |
$^O eq 'MSWin32' ? : |
|
38
|
1 |
0 |
if ($openssl) |
|
39
|
0 |
1 |
if $v |
|
54
|
0 |
21 |
if (/^\s+(\w):\s*$/) |
|
58
|
14 |
7 |
if (/^\s*((?:[0-9a-f]{2,2}:?)+)\s*$/) |
|
59
|
0 |
14 |
if defined $cur_part |
|
65
|
0 |
1 |
if (scalar keys %parts == 3) |
|
82
|
0 |
35 |
if $v |
|
84
|
0 |
35 |
$param{'Seed'} ? : |
|
90
|
34 |
1 |
unless isprime($q) |
|
93
|
0 |
1 |
if $v |
|
100
|
0 |
51 |
if $v |
|
105
|
51 |
153 |
if $k == $n |
|
111
|
1 |
50 |
if $p >= $p_test and isprime($p) |
|
112
|
50 |
0 |
unless ++$counter >= 4096 |
|
115
|
0 |
1 |
if $v |
|
121
|
0 |
1 |
if $g == 1 |
|
123
|
0 |
1 |
if $v |
|
130
|
0 |
1 |
wantarray ? : |
|
140
|
1 |
0 |
if $priv_key >= $key->q |
|
141
|
0 |
1 |
if $priv_key == 0 |
|
152
|
239 |
1 |
unless vec($s, $i, 8) == 0 |