| line |
true |
false |
branch |
|
176
|
25 |
19 |
unless exists $params{'min'} |
|
177
|
13 |
31 |
unless exists $params{'max'} |
|
178
|
1 |
43 |
unless exists $params{'ssl'} |
|
191
|
1 |
37 |
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 |
|
194
|
10 |
27 |
if ($params{'ssl'}) |
|
195
|
0 |
10 |
unless eval "use LWP::Protocol::https; 1;" |
|
221
|
9 |
36 |
unless defined $results |
|
222
|
0 |
45 |
if $results =~ /\D/ |
|
226
|
148 |
32 |
if $self->{'max'} - $self->{'min'} < 2 ** $bits |
|
228
|
0 |
45 |
if $bytes == 5 |
|
232
|
150 |
70878 |
if @{$Net::Random::randomness{$self->{'src'}}{'pool'};} < $bytes |
|
233
|
21 |
71007 |
if @{$Net::Random::randomness{$self->{'src'}}{'pool'};} < $bytes |
|
241
|
2572 |
68435 |
unless $random_number > $self->{'max'} |
|
243
|
20 |
4 |
if (wantarray) { } |
|
246
|
2 |
2 |
if ($results == 1) { } |