| line |
true |
false |
branch |
|
132
|
0 |
0 |
unless ($self->{'http'}->request("http://www.random.org/cgi-bin/checkbuf") == 200) |
|
138
|
0 |
0 |
unless ($self->{'http'}->body =~ /\A[\ \t\n]*([0-9]{1,3}(?:\.[0-9]+)?)\%[\ \t\n]*\z/) |
|
148
|
0 |
0 |
unless $self->{'bufpos'} == length $self->{'buffer'} |
|
151
|
0 |
0 |
unless defined $fillpct |
|
152
|
0 |
0 |
if ($fillpct >= 20) |
|
153
|
0 |
0 |
if $fillpct < 50 |
|
159
|
0 |
0 |
unless ($self->{'http'}->request("http://www.random.org/cgi-bin/randbyte?nbytes=256&format=f") == 200) |
|
167
|
0 |
0 |
unless ($self->{'buffer'} =~ /\A[\x00-\xff]+\z/) |
|
189
|
0 |
0 |
unless ($self->_ensure_buffer) |
|
198
|
0 |
0 |
if ($self->{'bufpos'} == 0) { } |
|
207
|
0 |
0 |
if $length < 0 |
|
208
|
0 |
0 |
unless defined $_[1] |
|
209
|
0 |
0 |
if (not defined $offset) { } |
|
|
0 |
0 |
elsif ($offset < 0) { } |
|
|
0 |
0 |
elsif ($offset > length $_[1]) { } |
|
213
|
0 |
0 |
if $offset < -length($_[1]) |
|
223
|
0 |
0 |
unless ($self->_ensure_buffer) |
|
228
|
0 |
0 |
if ($length < $avail) |
|
241
|
0 |
0 |
$nread == 0 ? : |