| line | % | coverage | branch |
|---|
| 198 | 100 | T | F | if (my $params = Params::Get::get_params(undef, @_)) |
| 199 | 100 | T | F | if ($$params{"expires_in"} and not $$params{"cache_duration"}) |
| 227 | 50 | T | F | if (scalar(@_) % 2 == 0) { } |
| 0 | T | F | elsif (scalar @_ == 1 and ref $_[0] eq 'HASH') { } |
| 0 | T | F | elsif (scalar @_ > 0) { } |
| 323 | 100 | T | F | if (scalar @_ == 1 and not ref $_[0]) { } |
| 100 | T | F | elsif (my $params = Params::Get::get_params(undef, @_)) { } |
| 329 | 50 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif ($class eq __PACKAGE__) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 330 | 0 | T | F | if (scalar keys %args > 0) |
| 348 | 50 | T | F | if (defined $args{"logger"}) |
| 349 | 50 | T | F | unless (&Scalar::Util::blessed($args{"logger"}) and $args{"logger"}->can("info") and $args{"logger"}->can("error")) |
| 354 | 100 | T | F | unless $args{"directory"} or $defaults{"directory"} |
| 356 | 100 | T | F | unless -d ($args{'directory'} || $defaults{'directory'}) |
| 396 | 50 | T | F | if (my $logger = $$params{"logger"}) |
| 397 | 100 | T | F | if (&Scalar::Util::blessed($logger)) { } |
| 413 | 50 | T | F | unless (UNIVERSAL::isa((&CORE::GLOBAL::caller())[0], __PACKAGE__)) |
| 420 | 100 | T | F | $$self{'sep_char'} ? : |
| 428 | 50 | T | F | if $$self{$table} |
| 440 | 50 | T | F | if (-r $slurp_file) |
| 442 | 0 | T | F | unless "DBI"->can("connect") |
| 448 | 50 | T | F | if ($dbh) { } |
| 50 | T | F | elsif ($self->_is_berkeley_db('File::Spec'->catfile($dir, "$dbname.db"))) { } |
| 463 | 50 | T | F | if (defined $slurp_file and -r $slurp_file) { } |
| 474 | 100 | T | F | if (defined $fin) { } |
| 482 | 100 | T | F | if (my $filename = $$self{'filename'} || $defaults{'filename'}) |
| 486 | 100 | T | F | if (defined $slurp_file and -r $slurp_file) { } |
| 487 | 100 | T | F | if defined $fin |
| 492 | 100 | T | F | if ($$params{'column_names'}) { } |
| 557 | 100 | T | F | if (-s $slurp_file <= $max_slurp_size and not $$params{"column_names"}) |
| 558 | 50 | T | F | if (-s $slurp_file == 0) { } |
| 584 | 100 | T | F | if ($$self{'no_entry'}) { } |
| 601 | 100 | T | F | if (-r $slurp_file) { } |
| 602 | 100 | T | F | if (-s $slurp_file <= $max_slurp_size) { } |
| 610 | 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'}) { } |
| 615 | 0 | T | F | if (scalar keys %{$xml;} == 1) { } |
| 616 | 0 | T | F | if ($$xml{$table}) { } |
| 628 | 50 | T | F | if ($$self{'no_entry'}) { } |
| 654 | 50 | T | F | if $$self{"data"} and ref($$self{"data"} eq "HASH") |
| 681 | 100 | T | F | if ($$self{'no_entry'}) { } |
| 100 | T | F | elsif (scalar @_) { } |
| 687 | 50 | T | F | if ($$self{"berkeley"}) |
| 693 | 100 | T | F | if ($$self{"data"}) |
| 694 | 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'}) { } |
| 696 | 50 | T | F | if (ref $$self{"data"} eq "HASH") |
| 708 | 50 | T | F | if (scalar keys %{$$self{"data"};} <= 10) |
| 728 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 738 | 50 | T | F | if (ref $arg) |
| 742 | 50 | T | F | unless (defined $arg) |
| 751 | 50 | T | F | if ($done_where) { } |
| 757 | 50 | T | F | if ($arg =~ /[%_]/) { } |
| 764 | 100 | T | F | unless ($$self{"no_entry"}) |
| 768 | 100 | T | F | if (defined $query_args[0]) { } |
| 776 | 50 | T | F | if ($c = $$self{'cache'}) { } |
| 778 | 0 | T | F | if (defined $query_args[0]) |
| 781 | 0 | T | F | if (my $rc = $c->get($key)) |
| 795 | 50 | T | F | if (my $sth = $$self{$table}->prepare($query)) |
| 796 | 50 | T | F | unless $sth->execute(@query_args) |
| 802 | 50 | T | F | if scalar keys %{$href;} |
| 804 | 50 | T | F | if ($c) |
| 808 | 50 | T | F | unless $$self{"no_fixate"} |
| 851 | 50 | T | F | if ($$self{"berkeley"}) |
| 858 | 100 | T | F | if ($$self{"data"}) |
| 859 | 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'}) { } |
| 861 | 50 | T | F | if (ref $$self{"data"} eq "HASH") |
| 875 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 885 | 50 | T | F | if (ref $arg) |
| 891 | 100 | T | F | if ($done_where) { } |
| 897 | 100 | T | F | if (not defined $arg) { } |
| 900 | 50 | T | F | if ($arg =~ /[%_]/) { } |
| 908 | 100 | T | F | unless ($$self{"no_entry"}) |
| 911 | 50 | T | F | unless (wantarray) |
| 915 | 100 | T | F | if (defined $query_args[0]) { } |
| 923 | 50 | T | F | if ($c = $$self{'cache'}) { } |
| 925 | 0 | T | F | if (wantarray) |
| 928 | 0 | T | F | if (defined $query_args[0]) |
| 931 | 0 | T | F | if (my $rc = $c->get($key)) |
| 933 | 0 | T | F | wantarray ? : |
| 945 | 50 | T | F | if (my $sth = $$self{$table}->prepare($query)) |
| 946 | 50 | T | F | unless $sth->execute(@query_args) |
| 952 | 50 | T | F | unless wantarray |
| 955 | 50 | T | F | if ($c) |
| 959 | 50 | T | F | if ($rc) |
| 960 | 50 | T | F | unless $$self{"no_fixate"} |
| 992 | 50 | T | F | if ($$self{"berkeley"}) |
| 999 | 100 | T | F | if ($$self{"data"}) |
| 1000 | 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'}) { } |
| 1002 | 50 | T | F | if (ref $$self{"data"} eq "HASH") |
| 1007 | 0 | T | F | $$self{'data'}{$$params{'entry'}} ? : |
| 1014 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 50 | T | F | elsif ($$self{'no_entry'}) { } |
| 1026 | 50 | T | F | if (ref $arg) |
| 1030 | 50 | T | F | unless (defined $arg) |
| 1039 | 50 | T | F | if ($done_where) { } |
| 1045 | 50 | T | F | if ($arg =~ /[%_]/) { } |
| 1052 | 100 | T | F | unless ($$self{"no_entry"}) |
| 1056 | 100 | T | F | if (defined $query_args[0]) { } |
| 1064 | 50 | T | F | if ($c = $$self{'cache'}) { } |
| 1068 | 0 | T | F | if (defined $query_args[0]) |
| 1071 | 0 | T | F | if (my $rc = $c->get($key)) |
| 1081 | 50 | T | F | if (my $sth = $$self{$table}->prepare($query)) |
| 1082 | 50 | T | F | unless $sth->execute(@query_args) |
| 1119 | 100 | T | F | if (not $$self{'no_entry'}) { } |
| 1128 | 100 | T | F | if ($$self{"data"} and not $$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $$params{"entry"}) |
| 1133 | 50 | T | F | if ($$self{"berkeley"}) |
| 1136 | 0 | T | F | if (not $$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $$params{"entry"}) |
| 1140 | 0 | T | F | if ($$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $id and defined $$params{$id}) |
| 1141 | 0 | T | F | if (my $rc = $$self{"berkeley"}{$$params{$id}}) |
| 1150 | 50 | T | F | if (my $t = delete $params->{'table'}) { } |
| 1157 | 100 | T | F | if ($$self{"type"} eq "CSV" and not $$self{"no_entry"}) |
| 1165 | 100 | T | F | if ($done_where) { } |
| 1171 | 100 | T | F | if (my $arg = $$params{$c1}) { } |
| 1172 | 50 | T | F | if (ref $arg) |
| 1177 | 50 | T | F | if ($arg =~ /[%_]/) { } |
| 1194 | 100 | T | F | if (defined $query_args[0]) { } |
| 1202 | 100 | T | F | if (defined $query_args[0]) { } |
| 1203 | 50 | T | F | if (wantarray) |
| 1211 | 50 | T | F | if ($c = $$self{"cache"}) |
| 1212 | 0 | T | F | if (my $rc = $c->get($key)) |
| 1213 | 0 | T | F | if (wantarray) { } |
| 1214 | 0 | T | F | if (ref $rc eq "ARRAY") |
| 1223 | 50 | T | F | unless my $sth = $$self{$table}->prepare($query) |
| 1225 | 50 | T | F | unless $sth->execute(@query_args) |
| 1227 | 50 | T | F | if ($c) |
| 1228 | 0 | T | F | if ($rc) { } |
| 1258 | 50 | T | F | if ($$self{"berkeley"}) |
| 1265 | 50 | T | F | unless defined $$args{"query"} |
| 1272 | 50 | T | F | unless $query =~ /\sFROM\s/i |
| 1279 | 50 | T | F | unless $sth->execute |
| 1285 | 50 | T | F | unless wantarray |
| 1332 | 50 | T | F | if $column eq "DESTROY" |
| 1334 | 50 | T | F | unless my $self = shift() |
| 1336 | 50 | T | F | unless ref $self |
| 1339 | 50 | T | F | if exists $self->{'auto_load'} and &boolean($$self{"auto_load"})->isFalse |
| 1342 | 50 | T | F | unless $column =~ /^[a-zA-Z_][a-zA-Z0-9_]*$/ |
| 1347 | 100 | T | F | if (ref $_[0] eq 'HASH') { } |
| 100 | T | F | elsif (scalar(@_) % 2 == 0) { } |
| 50 | T | F | elsif (scalar @_ == 1) { } |
| 1353 | 50 | T | F | if ($$self{"no_entry"} and not $$self{"berkeley"}) |
| 1359 | 50 | T | F | if ($$self{"berkeley"}) |
| 1360 | 0 | T | F | if (my $id = $$self{"id"}) |
| 1366 | 50 | T | F | unless defined $$self{"type"} |
| 1371 | 100 | T | F | if (wantarray and not $distinct) { } |
| 1372 | 100 | T | F | if (scalar keys %params == 0 and my $data = $$self{"data"}) |
| 1376 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 1383 | 100 | T | F | if (my $data = $$self{"data"}) |
| 1387 | 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) { } |
| 1390 | 0 | T | F | if (defined $key) |
| 1393 | 0 | T | F | if (defined $$row{$key} and $$row{$key} eq $value and my $rc = $$row{$column}) |
| 1394 | 0 | T | F | if (defined $rc) { } |
| 1411 | 100 | T | F | if (defined(my $hash = $$data{$key})) |
| 1413 | 100 | T | F | unless (exists $hash->{$column}) |
| 1418 | 100 | T | F | if (defined $rc) { } |
| 1425 | 50 | T | F | if (wantarray) |
| 1426 | 50 | T | F | if ($distinct) |
| 1441 | 100 | T | F | if (defined $$row{$key} and $$row{$key} eq $value and my $rc = $$row{$column}) |
| 1442 | 50 | T | F | if (defined $rc) { } |
| 1454 | 50 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 1464 | 50 | T | F | if (defined $value) { } |
| 1465 | 100 | T | F | if ($done_where) { } |
| 1474 | 0 | T | F | if ($done_where) { } |
| 1482 | 100 | T | F | if (wantarray) { } |
| 1487 | 100 | T | F | if (scalar @args and $args[0]) { } |
| 1494 | 50 | T | F | if ($cache = $$self{'cache'}) { } |
| 1495 | 0 | T | F | if (wantarray) |
| 1498 | 0 | T | F | if (defined $args[0]) { } |
| 1503 | 0 | T | F | if (my $rc = $cache->get($key)) |
| 1505 | 0 | T | F | wantarray ? : |
| 1514 | 50 | T | F | unless $sth->execute(@args) |
| 1516 | 100 | T | F | if (wantarray) |
| 1518 | 50 | T | F | if ($cache) |
| 1521 | 50 | T | F | unless $$self{"no_fixate"} |
| 1526 | 50 | T | F | if ($cache) |
| 1534 | 50 | T | F | if (defined $^V and $^V ge "v5.14.0") |
| 1535 | 50 | T | F | if ${^GLOBAL_PHASE} eq "DESTRUCT" |
| 1540 | 50 | T | F | if ($$self{"temp"}) |
| 1548 | 100 | T | F | if (my $dbh = delete $self->{$table_name}) |
| 1549 | 50 | T | F | if $dbh->can("disconnect") |
| 1550 | 50 | T | F | if $dbh->can("finish") |
| 1554 | 50 | T | F | if ($$self{"berkeley"}) |
| 1577 | 50 | T | F | unless $$self{$table} or $$self{"data"} |
| 1590 | 50 | T | F | unless open my $fh, "<", $file |
| 1596 | 0 | T | F | if ($is_db) |
| 1599 | 0 | T | F | if require DB_File |
| 1602 | 0 | T | F | if (tie %bdb, "DB_File", $file, 0, 420, $DB_File::DB_HASH) |
| 1618 | 0 | T | F | unless read($fh, my $magic_bytes, 4) == 4 |
| 1640 | 0 | T | F | unless seek $fh, 12, 0 |
| 1641 | 0 | T | F | unless read $fh, $header, 4 |
| 1659 | 50 | T | F | if (scalar @messages and my $logger = $$self{"logger"}) |