| line |
true |
false |
branch |
|
120
|
20 |
0 |
if defined $data |
|
126
|
0 |
0 |
unless my $fh = 'IO::File'->new($source, 'r') |
|
130
|
0 |
0 |
if length $data != $len |
|
141
|
5402 |
88 |
if (defined $params->{$name} and not ref $params->{$name}) { } |
|
146
|
27 |
61 |
if ref $params->{$name} eq 'CODE' |
|
147
|
18 |
70 |
if $params->{$autoname} or $params->{'auto'} |
|
148
|
43 |
45 |
unless ($seedfunc) |
|
149
|
2 |
41 |
unless $optional |
|
165
|
2688 |
56 |
if (defined $params->{$name} and not ref $params->{$name}) { } |
|
170
|
2 |
54 |
if ref $params->{$name} eq 'CODE' |
|
171
|
11 |
45 |
if ($params->{$autoname} or $params->{'auto'}) |
|
173
|
0 |
0 |
if defined $params->{'version'} and $params->{'version'} |
|
187
|
43 |
13 |
unless $seedfunc |
|
199
|
8 |
5551 |
if defined $pid and $pid != $$ |
|
200
|
0 |
5559 |
if $self->{'reseed_counter'} >= $self->{'reseed_interval'} |
|
202
|
8 |
5551 |
if ($reseed) |
|
203
|
0 |
8 |
unless $self->{'seedfunc'} |
|
205
|
8 |
0 |
if $self->{'fork_safe'} |
|
206
|
2 |
6 |
if defined $self->{'cache'} |
|
222
|
5 |
2739 |
if ($params{'cache'}) |
|
227
|
26 |
2718 |
if ($params{'fork_safe'} or not exists $params{'fork_safe'} and $params{'auto'}) |
|
250
|
5466 |
82 |
if not defined $self->{'cache'} or defined $seed |
|
257
|
7 |
75 |
unless length $$cache |
|
259
|
4 |
82 |
$left > length $$cache ? : |
|
262
|
4 |
82 |
unless length $$cache |
|
287
|
1 |
2 |
unless defined $n |
|
288
|
2 |
1 |
unless defined $num |
|
292
|
2 |
1 |
$single ? : |
|
311
|
0 |
0 |
$len <= 65536 ? : |
|
|
6 |
0 |
$len <= 256 ? : |
|
317
|
4 |
2 |
if ($len & $len - 1) { } |
|
355
|
2 |
1 |
if ($len & $len - 1) |