| line |
true |
false |
branch |
|
90
|
0 |
16 |
unless my $fh = 'IO::File'->new($source, 'r') |
|
94
|
0 |
16 |
if length $data != $len |
|
105
|
5400 |
68 |
if (defined $params->{$name} and not ref $params->{$name}) { } |
|
110
|
20 |
48 |
if ref $params->{$name} eq 'CODE' |
|
111
|
14 |
54 |
if $params->{$autoname} or $params->{'auto'} |
|
112
|
34 |
34 |
unless ($seedfunc) |
|
113
|
2 |
32 |
unless $optional |
|
129
|
2688 |
45 |
if (defined $params->{$name} and not ref $params->{$name}) { } |
|
134
|
2 |
43 |
if ref $params->{$name} eq 'CODE' |
|
135
|
9 |
36 |
if ($params->{$autoname} or $params->{'auto'}) |
|
137
|
0 |
0 |
if defined $params->{'version'} and $params->{'version'} |
|
151
|
34 |
11 |
unless $seedfunc |
|
163
|
6 |
5431 |
if defined $pid and $pid != $$ |
|
164
|
0 |
5437 |
if $self->{'reseed_counter'} >= $self->{'reseed_interval'} |
|
166
|
6 |
5431 |
if ($reseed) |
|
167
|
0 |
6 |
unless $self->{'seedfunc'} |
|
169
|
6 |
0 |
if $self->{'fork_safe'} |
|
185
|
2 |
2731 |
if ($params{'cache'}) |
|
191
|
7 |
2726 |
if $params{'auto'} and not defined $params{'fork_safe'} |
|
192
|
17 |
2716 |
if $self->{'fork_safe'} |
|
212
|
5431 |
73 |
if not defined $self->{'cache'} or defined $seed |
|
217
|
2 |
71 |
unless length $$cache |
|
219
|
4 |
73 |
$left > length $$cache ? : |
|
222
|
4 |
73 |
unless length $$cache |
|
247
|
1 |
2 |
unless defined $n |
|
248
|
2 |
1 |
unless defined $num |
|
252
|
2 |
1 |
$single ? : |
|
271
|
0 |
0 |
$len <= 65536 ? : |
|
|
6 |
0 |
$len <= 256 ? : |
|
277
|
4 |
2 |
if ($len & $len - 1) { } |
|
315
|
2 |
1 |
if ($len & $len - 1) |