| line |
true |
false |
branch |
| 26 |
0 |
6 |
unless $bits |
| 27 |
0 |
6 |
if $param{'Seed'} and length $param{'Seed'} != 20 |
| 31 |
5 |
1 |
unless ($param{'Seed'} or wantarray or $param{'PurePerl'}) |
| 34 |
0 |
5 |
$^O eq 'MSWin32' ? : |
| 37 |
5 |
0 |
if ($openssl) |
| 38 |
0 |
5 |
if $v |
| 51 |
15 |
77 |
if (/^\s+(\w):\s*$/) |
| 55 |
72 |
5 |
if (/^\s*((?:[0-9a-f]{2,2}:?)+)\s*$/) |
| 62 |
5 |
0 |
if (scalar keys %parts == 3) |
| 79 |
0 |
1 |
if $v |
| 80 |
1 |
0 |
$param{'Seed'} ? : |
| 87 |
0 |
1 |
unless isprime($q) |
| 90 |
0 |
1 |
if $v |
| 97 |
0 |
106 |
if $v |
| 102 |
106 |
318 |
if $k == $n |
| 108 |
1 |
105 |
if $p >= $p_test and isprime($p) |
| 109 |
105 |
0 |
unless ++$counter >= 4096 |
| 112 |
0 |
1 |
if $v |
| 118 |
0 |
1 |
if $g == 1 |
| 120 |
0 |
1 |
if $v |
| 127 |
1 |
0 |
wantarray ? : |
| 137 |
2 |
4 |
if $priv_key >= $key->q |
| 138 |
0 |
6 |
if $priv_key == 0 |
| 149 |
425 |
2 |
unless vec($s, $i, 8) == 0 |