| 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]) |
| 782 | 0 | T | F | if (my $rc = $c->get($key)) |
| 796 | 50 | T | F | if (my $sth = $$self{$table}->prepare($query)) |
| 797 | 50 | T | F | unless $sth->execute(@query_args) |
| 803 | 50 | T | F | if scalar keys %{$href;} |
| 805 | 50 | T | F | if ($c) |
| 809 | 50 | T | F | unless $$self{"no_fixate"} |
| 852 | 50 | T | F | if ($$self{"berkeley"}) |
| 859 | 100 | T | F | if ($$self{"data"}) |
| 860 | 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'}) { } |
| 862 | 50 | T | F | if (ref $$self{"data"} eq "HASH") |
| 876 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 886 | 50 | T | F | if (ref $arg) |
| 892 | 100 | T | F | if ($done_where) { } |
| 898 | 100 | T | F | if (not defined $arg) { } |
| 901 | 50 | T | F | if ($arg =~ /[%_]/) { } |
| 909 | 100 | T | F | unless ($$self{"no_entry"}) |
| 912 | 50 | T | F | unless (wantarray) |
| 916 | 100 | T | F | if (defined $query_args[0]) { } |
| 924 | 50 | T | F | if ($c = $$self{'cache'}) { } |
| 926 | 0 | T | F | if (wantarray) |
| 929 | 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) |
| 1121 | 100 | T | F | if (not $$self{'no_entry'}) { } |
| 1130 | 100 | T | F | if ($$self{"data"} and not $$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $$params{"entry"}) |
| 1135 | 50 | T | F | if ($$self{"berkeley"}) |
| 1138 | 0 | T | F | if (not $$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $$params{"entry"}) |
| 1142 | 0 | T | F | if ($$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $id and defined $$params{$id}) |
| 1143 | 0 | T | F | if (my $rc = $$self{"berkeley"}{$$params{$id}}) |
| 1152 | 50 | T | F | if (my $t = delete $params->{'table'}) { } |
| 1159 | 100 | T | F | if ($$self{"type"} eq "CSV" and not $$self{"no_entry"}) |
| 1167 | 100 | T | F | if ($done_where) { } |
| 1173 | 100 | T | F | if (my $arg = $$params{$c1}) { } |
| 1174 | 50 | T | F | if (ref $arg) |
| 1179 | 50 | T | F | if ($arg =~ /[%_]/) { } |
| 1196 | 100 | T | F | if (defined $query_args[0]) { } |
| 1204 | 100 | T | F | if (defined $query_args[0]) { } |
| 1205 | 50 | T | F | if (wantarray) |
| 1213 | 50 | T | F | if ($c = $$self{"cache"}) |
| 1214 | 0 | T | F | if (my $rc = $c->get($key)) |
| 1215 | 0 | T | F | if (wantarray) { } |
| 1216 | 0 | T | F | if (ref $rc eq "ARRAY") |
| 1225 | 50 | T | F | unless my $sth = $$self{$table}->prepare($query) |
| 1227 | 50 | T | F | unless $sth->execute(@query_args) |
| 1229 | 50 | T | F | if ($c) |
| 1230 | 0 | T | F | if ($rc) { } |
| 1262 | 50 | T | F | if ($$self{"berkeley"}) |
| 1270 | 50 | T | F | unless defined $$args{"query"} |
| 1277 | 50 | T | F | unless $query =~ /\sFROM\s/i |
| 1284 | 100 | T | F | if (exists $args->{'args'}) { } |
| 1285 | 50 | T | F | unless $sth->execute($$args{"args"}) |
| 1287 | 50 | T | F | unless $sth->execute |
| 1294 | 50 | T | F | unless wantarray |
| 1341 | 50 | T | F | if $column eq "DESTROY" |
| 1343 | 50 | T | F | unless my $self = shift() |
| 1345 | 50 | T | F | unless ref $self |
| 1348 | 50 | T | F | if exists $self->{'auto_load'} and &boolean($$self{"auto_load"})->isFalse |
| 1351 | 50 | T | F | unless $column =~ /^[a-zA-Z_][a-zA-Z0-9_]*$/ |
| 1356 | 100 | T | F | if (ref $_[0] eq 'HASH') { } |
| 100 | T | F | elsif (scalar(@_) % 2 == 0) { } |
| 50 | T | F | elsif (scalar @_ == 1) { } |
| 1362 | 50 | T | F | if ($$self{"no_entry"} and not $$self{"berkeley"}) |
| 1368 | 50 | T | F | if ($$self{"berkeley"}) |
| 1369 | 0 | T | F | if (my $id = $$self{"id"}) |
| 1375 | 50 | T | F | unless defined $$self{"type"} |
| 1380 | 100 | T | F | if (wantarray and not $distinct) { } |
| 1381 | 100 | T | F | if (scalar keys %params == 0 and my $data = $$self{"data"}) |
| 1385 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 1392 | 100 | T | F | if (my $data = $$self{"data"}) |
| 1396 | 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) { } |
| 1399 | 0 | T | F | if (defined $key) |
| 1402 | 0 | T | F | if (defined $$row{$key} and $$row{$key} eq $value and my $rc = $$row{$column}) |
| 1403 | 0 | T | F | if (defined $rc) { } |
| 1420 | 100 | T | F | if (defined(my $hash = $$data{$key})) |
| 1422 | 100 | T | F | unless (exists $hash->{$column}) |
| 1427 | 100 | T | F | if (defined $rc) { } |
| 1434 | 50 | T | F | if (wantarray) |
| 1435 | 50 | T | F | if ($distinct) |
| 1450 | 100 | T | F | if (defined $$row{$key} and $$row{$key} eq $value and my $rc = $$row{$column}) |
| 1451 | 50 | T | F | if (defined $rc) { } |
| 1463 | 50 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 1473 | 50 | T | F | if (defined $value) { } |
| 1474 | 100 | T | F | if ($done_where) { } |
| 1483 | 0 | T | F | if ($done_where) { } |
| 1491 | 100 | T | F | if (wantarray) { } |
| 1496 | 100 | T | F | if (scalar @args and $args[0]) { } |
| 1503 | 50 | T | F | if ($cache = $$self{'cache'}) { } |
| 1504 | 0 | T | F | if (wantarray) |
| 1507 | 0 | T | F | if (defined $args[0]) { } |
| 1512 | 0 | T | F | if (my $rc = $cache->get($key)) |
| 1514 | 0 | T | F | wantarray ? : |
| 1523 | 50 | T | F | unless $sth->execute(@args) |
| 1525 | 100 | T | F | if (wantarray) |
| 1527 | 50 | T | F | if ($cache) |
| 1530 | 50 | T | F | unless $$self{"no_fixate"} |
| 1535 | 50 | T | F | if ($cache) |
| 1543 | 50 | T | F | if (defined $^V and $^V ge "v5.14.0") |
| 1544 | 50 | T | F | if ${^GLOBAL_PHASE} eq "DESTRUCT" |
| 1549 | 50 | T | F | if ($$self{"temp"}) |
| 1557 | 100 | T | F | if (my $dbh = delete $self->{$table_name}) |
| 1558 | 50 | T | F | if $dbh->can("disconnect") |
| 1559 | 50 | T | F | if $dbh->can("finish") |
| 1563 | 50 | T | F | if ($$self{"berkeley"}) |
| 1586 | 50 | T | F | unless $$self{$table} or $$self{"data"} |
| 1599 | 50 | T | F | unless open my $fh, "<", $file |
| 1605 | 0 | T | F | if ($is_db) |
| 1608 | 0 | T | F | if require DB_File |
| 1611 | 0 | T | F | if (tie %bdb, "DB_File", $file, 0, 420, $DB_File::DB_HASH) |
| 1627 | 0 | T | F | unless read($fh, my $magic_bytes, 4) == 4 |
| 1649 | 0 | T | F | unless seek $fh, 12, 0 |
| 1650 | 0 | T | F | unless read $fh, $header, 4 |
| 1668 | 50 | T | F | if (scalar @messages and my $logger = $$self{"logger"}) |