| line |
true |
false |
branch |
|
170
|
19 |
15 |
unless exists $params{'min'} |
|
171
|
11 |
23 |
unless exists $params{'max'} |
|
172
|
1 |
33 |
unless exists $params{'ssl'} |
|
176
|
1 |
27 |
if grep {not $_ =~ /^(src|min|max|ssl)$/;} keys %params or not exists $params{'src'} or not $params{'src'} =~ /^(fourmilab\.ch|random\.org|qrng\.anu\.edu\.au)$/ or not $params{'min'} =~ /^-?\d+$/ or not $params{'max'} =~ /^-?\d+$/ or $params{'max'} > 4294967295 or $params{'min'} >= $params{'max'} or $params{'max'} - $params{'min'} > 4294967295 |
|
188
|
0 |
27 |
if ($params{'ssl'}) |
|
189
|
0 |
0 |
unless eval 'use LWP::Protocol::https; 1;' |
|
215
|
9 |
26 |
unless defined $results |
|
216
|
0 |
35 |
if $results =~ /\D/ |
|
220
|
117 |
23 |
if $$self{'max'} - $$self{'min'} < 2 ** $bits |
|
222
|
0 |
35 |
if $bytes == 5 |
|
226
|
43 |
16073 |
if @{$Net::Random::randomness{$$self{'src'}}{'pool'};} < $bytes |
|
227
|
11 |
16105 |
if @{$Net::Random::randomness{$$self{'src'}}{'pool'};} < $bytes |
|
235
|
2820 |
13285 |
unless $random_number > $$self{'max'} |
|
237
|
20 |
4 |
if (wantarray) { } |
|
240
|
2 |
2 |
if ($results == 1) { } |