| line | % | coverage | condition |
|---|
| 199 | 67 | | $$params{"expires_in"} and not $$params{"cache_duration"} |
| 205 | 100 | | $defaults{"cache_duration"} ||= "1 hour" |
| 227 | 0 | | scalar @_ == 1 and ref $_[0] eq "HASH" |
| 323 | 100 | | scalar @_ == 1 and not ref $_[0] |
| 349 | 25 | | &Scalar::Util::blessed($args{"logger"}) and $args{"logger"}->can("info") and $args{"logger"}->can("error") |
| 354 | 100 | | $args{"directory"} or $defaults{"directory"} |
| 356 | 67 | | $args{'directory'} || $defaults{'directory'} |
| 33 | | $args{'directory'} || $defaults{'directory'} |
| 420 | 67 | | $$params{"sep_char"} ||= $$self{"sep_char"} ? $$self{"sep_char"} : "!" |
| 421 | 67 | | $$params{'max_slurp_size'} || $$self{'max_slurp_size'} |
| 423 | 33 | | $$self{'table'} || ref $self |
| 433 | 33 | | $$self{'directory'} || $defaults{'directory'} |
| 434 | 67 | | $$self{'dbname'} || $defaults{'dbname'} || $table |
| 442 | 0 | | require DBI and "DBI"->import |
| 463 | 33 | | defined $slurp_file and -r $slurp_file |
| 482 | 67 | | $$self{'filename'} || $defaults{'filename'} |
| 486 | 67 | | defined $slurp_file and -r $slurp_file |
| 557 | 100 | | -s $slurp_file <= $max_slurp_size and not $$params{"column_names"} |
| 610 | 0 | | ref $xml eq "HASH" and not $$self{"no_entry"} |
| 654 | 67 | | $$self{"data"} and ref($$self{"data"} eq "HASH") |
| 694 | 50 | | scalar keys %{$params;} == 1 and defined $$params{"entry"} and not $$self{"no_entry"} |
| 728 | 100 | | $$self{"type"} eq "CSV" and not $$self{"no_entry"} |
| 859 | 25 | | scalar keys %{$params;} == 1 and defined $$params{"entry"} and not $$self{"no_entry"} |
| 875 | 100 | | $$self{"type"} eq "CSV" and not $$self{"no_entry"} |
| 1000 | 25 | | scalar keys %{$params;} == 1 and defined $$params{"entry"} and not $$self{"no_entry"} |
| 1014 | 67 | | $$self{"type"} eq "CSV" and not $$self{"no_entry"} |
| 1128 | 60 | | A | B | C | D | dec |
|---|
| 0 | X | X | X | 0 | | 1 | 0 | X | X | 0 | | 1 | 1 | 0 | X | 0 | | 1 | 1 | 1 | 0 | 0 | | 1 | 1 | 1 | 1 | 1 |
| $$self{"data"} and not $$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $$params{"entry"} |
| 1136 | 0 | | not $$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $$params{"entry"} |
| 1140 | 0 | | A | B | C | D | dec |
|---|
| 0 | X | X | X | 0 | | 1 | 0 | X | X | 0 | | 1 | 1 | 0 | X | 0 | | 1 | 1 | 1 | 0 | 0 | | 1 | 1 | 1 | 1 | 1 |
| $$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $id and defined $$params{$id} |
| 1157 | 67 | | $$self{"type"} eq "CSV" and not $$self{"no_entry"} |
| 1339 | 33 | | exists $self->{'auto_load'} and &boolean($$self{"auto_load"})->isFalse |
| 1353 | 33 | | $$self{"no_entry"} and not $$self{"berkeley"} |
| 1369 | 100 | | delete $params{'distinct'} || delete $params{'unique'} |
| 1371 | 100 | | wantarray and not $distinct |
| 1372 | 100 | | scalar keys %params == 0 and my $data = $$self{"data"} |
| 1376 | 67 | | $$self{"type"} eq "CSV" and not $$self{"no_entry"} |
| 1387 | 100 | | scalar keys %params == 1 and defined(my $key = $params{"entry"}) |
| 1393 | 0 | | defined $$row{$key} and $$row{$key} eq $value and my $rc = $$row{$column} |
| 1441 | 75 | | defined $$row{$key} and $$row{$key} eq $value and my $rc = $$row{$column} |
| 1454 | 67 | | $$self{"type"} eq "CSV" and not $$self{"no_entry"} |
| 1487 | 67 | | scalar @args and $args[0] |
| 1512 | 33 | | $$self{$table}->prepare($query) || croak($query) |
| 1534 | 33 | | defined $^V and $^V ge "v5.14.0" |
| 1545 | 33 | | $$self{'table'} || ref $self |
| 1573 | 33 | | $$params{'table'} || $$self{'table'} || ref $self |
| 1577 | 67 | | $$self{$table} or $$self{"data"} |
| 1593 | 0 | | $self->_is_berkeley_db_0($fh) || $self->_is_berkeley_db_12($fh) |
| 1632 | 0 | | $known_magic{$magic_be} || $known_magic{$magic_le} |
| 1646 | 0 | | $header eq '6115' || $header eq '1561' |
| 1659 | 33 | | scalar @messages and my $logger = $$self{"logger"} |