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) |