| line | % | coverage | branch |
|---|
| 197 | 100 | T | F | if (my $params = Params::Get::get_params(undef, @_)) |
| 198 | 100 | T | F | if ($$params{"expires_in"} and not $$params{"cache_duration"}) |
| 226 | 50 | T | F | if (scalar(@_) % 2 == 0) { } |
| 0 | T | F | elsif (scalar @_ == 1 and ref $_[0] eq 'HASH') { } |
| 0 | T | F | elsif (scalar @_ > 0) { } |
| 322 | 100 | T | F | if (scalar @_ == 1 and not ref $_[0]) { } |
| 100 | T | F | elsif (my $params = Params::Get::get_params(undef, @_)) { } |
| 328 | 50 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif ($class eq __PACKAGE__) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 329 | 0 | T | F | if (scalar keys %args > 0) |
| 347 | 50 | T | F | if (defined $args{"logger"}) |
| 348 | 50 | T | F | unless (&Scalar::Util::blessed($args{"logger"}) and $args{"logger"}->can("info") and $args{"logger"}->can("error")) |
| 353 | 100 | T | F | unless $args{"directory"} or $defaults{"directory"} |
| 355 | 100 | T | F | unless -d ($args{'directory'} || $defaults{'directory'}) |
| 395 | 50 | T | F | if (my $logger = $$params{"logger"}) |
| 396 | 100 | T | F | if (&Scalar::Util::blessed($logger)) { } |
| 412 | 50 | T | F | unless (UNIVERSAL::isa((&CORE::GLOBAL::caller())[0], __PACKAGE__)) |
| 419 | 100 | T | F | $$self{'sep_char'} ? : |
| 427 | 50 | T | F | if $$self{$table} |
| 439 | 50 | T | F | if (-r $slurp_file) |
| 441 | 0 | T | F | unless "DBI"->can("connect") |
| 447 | 50 | T | F | if ($dbh) { } |
| 50 | T | F | elsif ($self->_is_berkeley_db('File::Spec'->catfile($dir, "$dbname.db"))) { } |
| 462 | 50 | T | F | if (defined $slurp_file and -r $slurp_file) { } |
| 473 | 100 | T | F | if (defined $fin) { } |
| 481 | 100 | T | F | if (my $filename = $$self{'filename'} || $defaults{'filename'}) |
| 485 | 100 | T | F | if (defined $slurp_file and -r $slurp_file) { } |
| 486 | 100 | T | F | if defined $fin |
| 491 | 100 | T | F | if ($$params{'column_names'}) { } |
| 556 | 100 | T | F | if (-s $slurp_file <= $max_slurp_size and not $$params{"column_names"}) |
| 557 | 50 | T | F | if (-s $slurp_file == 0) { } |
| 583 | 100 | T | F | if ($$self{'no_entry'}) { } |
| 600 | 100 | T | F | if (-r $slurp_file) { } |
| 601 | 100 | T | F | if (-s $slurp_file <= $max_slurp_size) { } |
| 609 | 50 | T | F | if (ref $$xml{$key} eq 'ARRAY') { } |
| 0 | T | F | elsif (ref $xml eq 'ARRAY') { } |
| 0 | T | F | elsif (ref $xml eq 'HASH' and not $$self{'no_entry'}) { } |
| 614 | 0 | T | F | if (scalar keys %{$xml;} == 1) { } |
| 615 | 0 | T | F | if ($$xml{$table}) { } |
| 627 | 50 | T | F | if ($$self{'no_entry'}) { } |
| 653 | 50 | T | F | if $$self{"data"} and ref($$self{"data"} eq "HASH") |
| 680 | 100 | T | F | if ($$self{'no_entry'}) { } |
| 100 | T | F | elsif (scalar @_) { } |
| 686 | 50 | T | F | if ($$self{"berkeley"}) |
| 692 | 100 | T | F | if ($$self{"data"}) |
| 693 | 100 | T | F | if (scalar keys %{$params;} == 0) { } |
| 100 | T | F | elsif (scalar keys %{$params;} == 1 and defined $$params{'entry'} and not $$self{'no_entry'}) { } |
| 695 | 50 | T | F | if (ref $$self{"data"} eq "HASH") |
| 707 | 50 | T | F | if (scalar keys %{$$self{"data"};} <= 10) |
| 727 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 737 | 50 | T | F | if (ref $arg) |
| 741 | 50 | T | F | unless (defined $arg) |
| 750 | 50 | T | F | if ($done_where) { } |
| 756 | 50 | T | F | if ($arg =~ /[%_]/) { } |
| 763 | 100 | T | F | unless ($$self{"no_entry"}) |
| 767 | 100 | T | F | if (defined $query_args[0]) { } |
| 775 | 50 | T | F | if ($c = $$self{'cache'}) { } |
| 777 | 0 | T | F | if (defined $query_args[0]) |
| 780 | 0 | T | F | if (my $rc = $c->get($key)) |
| 794 | 50 | T | F | if (my $sth = $$self{$table}->prepare($query)) |
| 795 | 50 | T | F | unless $sth->execute(@query_args) |
| 801 | 50 | T | F | if scalar keys %{$href;} |
| 803 | 50 | T | F | if ($c) |
| 807 | 50 | T | F | unless $$self{"no_fixate"} |
| 850 | 50 | T | F | if ($$self{"berkeley"}) |
| 857 | 100 | T | F | if ($$self{"data"}) |
| 858 | 100 | T | F | if (scalar keys %{$params;} == 0) { } |
| 50 | T | F | elsif (scalar keys %{$params;} == 1 and defined $$params{'entry'} and not $$self{'no_entry'}) { } |
| 860 | 50 | T | F | if (ref $$self{"data"} eq "HASH") |
| 874 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 884 | 50 | T | F | if (ref $arg) |
| 888 | 100 | T | F | unless (defined $arg) |
| 897 | 100 | T | F | if ($done_where) { } |
| 903 | 50 | T | F | if ($arg =~ /[%_]/) { } |
| 910 | 100 | T | F | unless ($$self{"no_entry"}) |
| 913 | 50 | T | F | unless (wantarray) |
| 917 | 100 | T | F | if (defined $query_args[0]) { } |
| 925 | 50 | T | F | if ($c = $$self{'cache'}) { } |
| 927 | 0 | T | F | if (wantarray) |
| 930 | 0 | T | F | if (defined $query_args[0]) |
| 933 | 0 | T | F | if (my $rc = $c->get($key)) |
| 935 | 0 | T | F | wantarray ? : |
| 947 | 50 | T | F | if (my $sth = $$self{$table}->prepare($query)) |
| 948 | 50 | T | F | unless $sth->execute(@query_args) |
| 954 | 50 | T | F | unless wantarray |
| 957 | 50 | T | F | if ($c) |
| 961 | 50 | T | F | if ($rc) |
| 962 | 50 | T | F | unless $$self{"no_fixate"} |
| 994 | 50 | T | F | if ($$self{"berkeley"}) |
| 1001 | 100 | T | F | if ($$self{"data"}) |
| 1002 | 100 | T | F | if (scalar keys %{$params;} == 0) { } |
| 50 | T | F | elsif (scalar keys %{$params;} == 1 and defined $$params{'entry'} and not $$self{'no_entry'}) { } |
| 1004 | 50 | T | F | if (ref $$self{"data"} eq "HASH") |
| 1009 | 0 | T | F | $$self{'data'}{$$params{'entry'}} ? : |
| 1016 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 50 | T | F | elsif ($$self{'no_entry'}) { } |
| 1028 | 50 | T | F | if (ref $arg) |
| 1032 | 50 | T | F | unless (defined $arg) |
| 1041 | 50 | T | F | if ($done_where) { } |
| 1047 | 50 | T | F | if ($arg =~ /[%_]/) { } |
| 1054 | 100 | T | F | unless ($$self{"no_entry"}) |
| 1058 | 100 | T | F | if (defined $query_args[0]) { } |
| 1066 | 50 | T | F | if ($c = $$self{'cache'}) { } |
| 1070 | 0 | T | F | if (defined $query_args[0]) |
| 1073 | 0 | T | F | if (my $rc = $c->get($key)) |
| 1083 | 50 | T | F | if (my $sth = $$self{$table}->prepare($query)) |
| 1084 | 50 | T | F | unless $sth->execute(@query_args) |
| 1117 | 100 | T | F | if (not $$self{'no_entry'}) { } |
| 1126 | 100 | T | F | if ($$self{"data"} and not $$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $$params{"entry"}) |
| 1131 | 50 | T | F | if ($$self{"berkeley"}) |
| 1134 | 0 | T | F | if (not $$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $$params{"entry"}) |
| 1138 | 0 | T | F | if ($$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $id and defined $$params{$id}) |
| 1139 | 0 | T | F | if (my $rc = $$self{"berkeley"}{$$params{$id}}) |
| 1148 | 50 | T | F | if (my $t = delete $params->{'table'}) { } |
| 1155 | 100 | T | F | if ($$self{"type"} eq "CSV" and not $$self{"no_entry"}) |
| 1161 | 100 | T | F | if (my $arg = $$params{$c1}) { } |
| 50 | T | F | elsif (not defined $arg) { } |
| 1164 | 50 | T | F | if (ref $arg) |
| 1169 | 100 | T | F | if ($done_where) { } |
| 1175 | 50 | T | F | if ($arg =~ /[%_]/) { } |
| 1191 | 50 | T | F | if (defined $query_args[0]) { } |
| 1199 | 50 | T | F | if (defined $query_args[0]) { } |
| 1200 | 50 | T | F | if (wantarray) |
| 1208 | 50 | T | F | if ($c = $$self{"cache"}) |
| 1209 | 0 | T | F | if (my $rc = $c->get($key)) |
| 1210 | 0 | T | F | if (wantarray) { } |
| 1211 | 0 | T | F | if (ref $rc eq "ARRAY") |
| 1220 | 50 | T | F | unless my $sth = $$self{$table}->prepare($query) |
| 1222 | 50 | T | F | unless $sth->execute(@query_args) |
| 1224 | 50 | T | F | if ($c) |
| 1225 | 0 | T | F | if ($rc) { } |
| 1255 | 50 | T | F | if ($$self{"berkeley"}) |
| 1262 | 50 | T | F | unless defined $$args{"query"} |
| 1269 | 50 | T | F | unless $query =~ /\sFROM\s/i |
| 1276 | 50 | T | F | unless $sth->execute |
| 1282 | 50 | T | F | unless wantarray |
| 1329 | 50 | T | F | if $column eq "DESTROY" |
| 1331 | 50 | T | F | unless my $self = shift() |
| 1333 | 50 | T | F | unless ref $self |
| 1336 | 50 | T | F | if exists $self->{'auto_load'} and &boolean($$self{"auto_load"})->isFalse |
| 1339 | 50 | T | F | unless $column =~ /^[a-zA-Z_][a-zA-Z0-9_]*$/ |
| 1344 | 100 | T | F | if (ref $_[0] eq 'HASH') { } |
| 100 | T | F | elsif (scalar(@_) % 2 == 0) { } |
| 50 | T | F | elsif (scalar @_ == 1) { } |
| 1350 | 50 | T | F | if ($$self{"no_entry"} and not $$self{"berkeley"}) |
| 1356 | 50 | T | F | if ($$self{"berkeley"}) |
| 1357 | 0 | T | F | if (my $id = $$self{"id"}) |
| 1363 | 50 | T | F | unless defined $$self{"type"} |
| 1368 | 100 | T | F | if (wantarray and not $distinct) { } |
| 1369 | 100 | T | F | if (scalar keys %params == 0 and my $data = $$self{"data"}) |
| 1373 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 1380 | 100 | T | F | if (my $data = $$self{"data"}) |
| 1384 | 50 | T | F | if ($$self{'no_entry'}) { } |
| 100 | T | F | elsif (scalar keys %params == 1 and defined(my $key = $params{'entry'})) { } |
| 100 | T | F | elsif (scalar keys %params == 0) { } |
| 1387 | 0 | T | F | if (defined $key) |
| 1390 | 0 | T | F | if (defined $$row{$key} and $$row{$key} eq $value and my $rc = $$row{$column}) |
| 1391 | 0 | T | F | if (defined $rc) { } |
| 1408 | 100 | T | F | if (defined(my $hash = $$data{$key})) |
| 1410 | 100 | T | F | unless (exists $hash->{$column}) |
| 1415 | 100 | T | F | if (defined $rc) { } |
| 1422 | 50 | T | F | if (wantarray) |
| 1423 | 50 | T | F | if ($distinct) |
| 1438 | 100 | T | F | if (defined $$row{$key} and $$row{$key} eq $value and my $rc = $$row{$column}) |
| 1439 | 50 | T | F | if (defined $rc) { } |
| 1451 | 50 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 1461 | 50 | T | F | if (defined $value) { } |
| 1462 | 100 | T | F | if ($done_where) { } |
| 1471 | 0 | T | F | if ($done_where) { } |
| 1479 | 100 | T | F | if (wantarray) { } |
| 1484 | 100 | T | F | if (scalar @args and $args[0]) { } |
| 1491 | 50 | T | F | if ($cache = $$self{'cache'}) { } |
| 1492 | 0 | T | F | if (wantarray) |
| 1495 | 0 | T | F | if (defined $args[0]) { } |
| 1500 | 0 | T | F | if (my $rc = $cache->get($key)) |
| 1502 | 0 | T | F | wantarray ? : |
| 1511 | 50 | T | F | unless $sth->execute(@args) |
| 1513 | 100 | T | F | if (wantarray) |
| 1515 | 50 | T | F | if ($cache) |
| 1518 | 50 | T | F | unless $$self{"no_fixate"} |
| 1523 | 50 | T | F | if ($cache) |
| 1531 | 50 | T | F | if (defined $^V and $^V ge "v5.14.0") |
| 1532 | 50 | T | F | if ${^GLOBAL_PHASE} eq "DESTRUCT" |
| 1537 | 50 | T | F | if ($$self{"temp"}) |
| 1545 | 100 | T | F | if (my $dbh = delete $self->{$table_name}) |
| 1546 | 50 | T | F | if $dbh->can("disconnect") |
| 1547 | 50 | T | F | if $dbh->can("finish") |
| 1551 | 50 | T | F | if ($$self{"berkeley"}) |
| 1574 | 50 | T | F | unless $$self{$table} or $$self{"data"} |
| 1587 | 50 | T | F | unless open my $fh, "<", $file |
| 1593 | 0 | T | F | if ($is_db) |
| 1596 | 0 | T | F | if require DB_File |
| 1599 | 0 | T | F | if (tie %bdb, "DB_File", $file, 0, 420, $DB_File::DB_HASH) |
| 1615 | 0 | T | F | unless read($fh, my $magic_bytes, 4) == 4 |
| 1637 | 0 | T | F | unless seek $fh, 12, 0 |
| 1638 | 0 | T | F | unless read $fh, $header, 4 |
| 1656 | 50 | T | F | if (scalar @messages and my $logger = $$self{"logger"}) |