| line |
true |
false |
branch |
|
101
|
1 |
0 |
unless ($valid) |
|
103
|
0 |
1 |
if (-f $self->{'fh'}) { } |
|
|
1 |
0 |
elsif (length $self->{'fh'}) { } |
|
118
|
0 |
1 |
if exists $self->{'fh'} |
|
145
|
0 |
0 |
if $k =~ /^\d+$/ |
|
233
|
0 |
1 |
if ($self->{'fh'}) { } |
|
257
|
0 |
5 |
if ($self->{'fh'}) { } |
|
260
|
0 |
0 |
if $n != 4 |
|
265
|
0 |
0 |
if $n != $size |
|
275
|
5 |
0 |
if (length $bson) |
|
278
|
0 |
5 |
if $sep ne "\000" |
|
293
|
0 |
2 |
if ($self->{'stdin'}) { } |
|
299
|
0 |
2 |
if (exists $self->{'fh'}) { } |
|
316
|
0 |
5 |
if (length $bson != $size) |
|
321
|
0 |
5 |
if ($sep ne "\000") |
|
329
|
15 |
27 |
if $element == 0 |
|
332
|
27 |
0 |
if (exists $self->{'func'}{$element}) { } |
|
350
|
0 |
0 |
if (ref $hash and ref $hash eq 'ARRAY') { } |
|
359
|
0 |
0 |
if (ref $hash eq 'HASH') |
|
363
|
0 |
0 |
if (grep {$k =~ /$_/;} @{$allowed_keys;}) { } |
|
370
|
0 |
0 |
if (ref $hash->{$k}) |
|
372
|
0 |
0 |
if (ref $hash->{$k} eq 'HASH' or ref $hash->{$k} eq 'ARRAY') |