| line |
true |
false |
branch |
|
170
|
25 |
19 |
unless exists $params{'min'} |
|
171
|
13 |
31 |
unless exists $params{'max'} |
|
172
|
1 |
43 |
unless exists $params{'ssl'} |
|
185
|
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 |
|
188
|
10 |
27 |
if ($params{'ssl'}) |
|
189
|
0 |
10 |
unless eval 'use LWP::Protocol::https; 1;' |
|
215
|
9 |
36 |
unless defined $results |
|
216
|
0 |
45 |
if $results =~ /\D/ |
|
220
|
148 |
32 |
if $self->{'max'} - $self->{'min'} < 2 ** $bits |
|
222
|
0 |
45 |
if $bytes == 5 |
|
226
|
196 |
100211 |
if @{$Net::Random::randomness{$self->{'src'}}{'pool'};} < $bytes |
|
227
|
14 |
100393 |
if @{$Net::Random::randomness{$self->{'src'}}{'pool'};} < $bytes |
|
235
|
5635 |
94758 |
unless $random_number > $self->{'max'} |
|
237
|
27 |
4 |
if (wantarray) { } |
|
240
|
2 |
2 |
if ($results == 1) { } |