| line | % | coverage | branch |
|---|
| 378 | 100 | T | F | if (my $params = Params::Get::get_params(undef, @_)) |
| 379 | 100 | T | F | if ($$params{"expires_in"} and not $$params{"cache_duration"}) |
| 407 | 50 | T | F | if (scalar @_ == 0 and ref $pkg eq 'HASH') { } |
| 100 | T | F | elsif (scalar(@_) % 2 == 0) { } |
| 50 | T | F | elsif (scalar @_ == 1 and ref $_[0] eq 'HASH') { } |
| 0 | T | F | elsif (scalar @_ > 0) { } |
| 591 | 100 | T | F | if (scalar @_ == 1 and not ref $_[0]) { } |
| 100 | T | F | elsif (my $params = Params::Get::get_params(undef, @_)) { } |
| 597 | 50 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif ($class eq __PACKAGE__) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 598 | 0 | T | F | if (scalar keys %args > 0) |
| 612 | 100 | T | F | if (defined $args{"id"}) |
| 614 | 50 | T | F | unless $args{"id"} =~ /$SAFE_IDENTIFIER/ |
| 616 | 100 | T | F | if (defined $args{"table"}) |
| 618 | 50 | T | F | unless $args{"table"} =~ /$SAFE_QUALIFIED/ |
| 628 | 50 | T | F | if (defined $args{"logger"} and not &Scalar::Util::blessed($args{"logger"})) |
| 632 | 100 | T | F | unless ($args{"dsn"} or $defaults{"dsn"} or $args{"url"} or $defaults{"url"}) |
| 633 | 100 | T | F | unless $args{"directory"} or $defaults{"directory"} |
| 638 | 100 | T | F | unless ($given_host and not $class->_is_local_host($given_host)) |
| 639 | 100 | T | F | unless -d ($args{'directory'} || $defaults{'directory'}) |
| 645 | 100 | T | F | if (defined $$src{"id"}) |
| 647 | 100 | T | F | unless $$src{"id"} =~ /$SAFE_IDENTIFIER/ |
| 649 | 100 | T | F | if (defined $$src{"host"}) |
| 651 | 100 | T | F | unless $$src{"host"} =~ /\A
(?: # optional "user\@" prefix
[a-zA-Z0-9] # username: first char must be alnum
[a-zA-Z0-9._-]* # username: rest may include dots and hyphens
\@ # literal at-sign; \@ prevents array interpolation
)?
[a-zA-Z0-9:] # first char of host or IP; colon allows IPv6
[a-zA-Z0-9._:-]* # rest: hostname, dotted IPv4, or IPv6 hex groups
\z/x |
| 661 | 100 | T | F | if (defined $$src{"url"}) |
| 663 | 100 | T | F | unless $$src{"url"} =~ m[\Ahttps?://]i |
| 665 | 100 | T | F | if (defined $$src{"table"}) |
| 667 | 100 | T | F | unless $$src{"table"} =~ /$SAFE_QUALIFIED/ |
| 694 | 100 | T | F | if (my $logger = $$params{"logger"}) |
| 695 | 100 | T | F | if (&Scalar::Util::blessed($logger)) { } |
| 713 | 50 | T | F | unless $c and $c->isa(__PACKAGE__) |
| 718 | 100 | T | F | $$self{'sep_char'} ? : |
| 726 | 50 | T | F | if $$self{$table} |
| 732 | 50 | T | F | if (my $dsn = $$self{'dsn'} || $defaults{'dsn'}) |
| 734 | 0 | T | F | if ($dsn =~ /^dbi:SQLite:/i) { } |
| 0 | T | F | elsif ($dsn =~ /^dbi:Pg:/i) { } |
| 0 | T | F | elsif ($dsn =~ /^dbi:mysql:/i) { } |
| 742 | 0 | T | F | unless $dbh = "DBI"->connect($dsn, $$self{"username"}, $$self{"password"}, {"RaiseError", 1, "AutoCommit", 1}) |
| 746 | 0 | T | F | if ($dialect eq "sqlite") |
| 763 | 50 | T | F | if (my $url = $$self{'url'} || $defaults{'url'}) |
| 770 | 0 | T | F | unless $response->is_success |
| 778 | 0 | T | F | unless @tables |
| 780 | 0 | T | F | if $tidx >= @tables |
| 784 | 0 | T | F | unless @rows |
| 787 | 0 | T | F | defined $_ ? : |
| 790 | 0 | T | F | if ($$self{'no_entry'}) { } |
| 794 | 0 | T | F | defined $_ ? : |
| 802 | 0 | T | F | defined $_ ? : |
| 804 | 0 | T | F | unless defined $key |
| 812 | 0 | T | F | if $$self{"data"} and ref $$self{"data"} eq "HASH" |
| 825 | 50 | T | F | unless $dbname =~ /\A[a-zA-Z0-9_.-]+\z/ and not $dbname =~ /\.\./ |
| 832 | 50 | T | F | if (my $host = $$self{'host'} || $defaults{'host'}) { } |
| 833 | 0 | T | F | if ($self->_is_local_host($host)) { } |
| 845 | 0 | T | F | unless defined $content and length $content |
| 867 | 50 | T | F | if (-r $candidate) |
| 870 | 50 | T | F | unless ($deep_file) |
| 872 | 50 | T | F | if -r $db_candidate and $self->_is_deep_db($db_candidate) |
| 876 | 50 | T | F | if (-r $slurp_file) |
| 883 | 50 | T | F | if ($dbh) { } |
| 50 | T | F | elsif ($deep_file) { } |
| 50 | T | F | elsif ($self->_is_berkeley_db('File::Spec'->catfile($dir, "$dbname.db"))) { } |
| 898 | 0 | T | F | if ($$self{'no_entry'}) { } |
| 906 | 0 | T | F | (&Scalar::Util::reftype($row) // '') eq 'HASH' ? : |
| 909 | 0 | T | F | @data ? : |
| 918 | 0 | T | F | (&Scalar::Util::reftype($row) // '') eq 'HASH' ? : |
| 921 | 0 | T | F | %data ? : |
| 937 | 50 | T | F | unless -r $candidate |
| 942 | 50 | T | F | if ($gz_file) { } |
| 953 | 100 | T | F | if (-r $psv) { } |
| 962 | 100 | T | F | unless -r $candidate |
| 969 | 100 | T | F | if (my $filename = $$self{'filename'} || $defaults{'filename'}) |
| 970 | 50 | T | F | unless $filename =~ /\A[a-zA-Z0-9_.-]+\z/ and not $filename =~ /\.\./ |
| 975 | 100 | T | F | if (defined $slurp_file and -r $slurp_file) { } |
| 976 | 100 | T | F | if defined $fin |
| 981 | 100 | T | F | if ($$params{'column_names'}) { } |
| 1032 | 100 | T | F | if (-s $slurp_file <= $max_slurp_size and not $$params{"column_names"}) |
| 1033 | 50 | T | F | if (-s $slurp_file == 0) { } |
| 1059 | 100 | T | F | if defined $$_{$id_col} |
| 1061 | 100 | T | F | if ($$self{'no_entry'}) { } |
| 1066 | 50 | T | F | @data ? : |
| 1076 | 50 | T | F | if (-r $xlsx_file) { } |
| 1080 | 0 | T | F | unless $dbh = "DBI"->connect("dbi:Excel:file=$xlsx_file", undef, undef, {"RaiseError", 1, "PrintError", 0}) |
| 1088 | 100 | T | F | if (-r $slurp_file) { } |
| 1089 | 50 | T | F | if (-s $slurp_file <= $max_slurp_size) { } |
| 1096 | 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'}) { } |
| 1101 | 0 | T | F | if (scalar keys %{$xml;} == 1) { } |
| 1102 | 0 | T | F | if ($$xml{$table}) { } |
| 1113 | 50 | T | F | if ($$self{'no_entry'}) { } |
| 1141 | 100 | T | F | if $$self{"data"} and ref $$self{"data"} eq "HASH" |
| 1199 | 100 | T | F | if ($$self{"berkeley"}) |
| 1204 | 100 | T | F | if ($$self{'no_entry'}) { } |
| 100 | T | F | elsif (scalar @_) { } |
| 1215 | 100 | T | F | if (my $join_spec = delete $params->{'join'}) |
| 1219 | 100 | T | F | if (not $join_clause and $$self{"data"} and not $self->_has_complex_criteria($params)) |
| 1220 | 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'}) { } |
| 50 | T | F | elsif (ref $$self{'data'} eq 'HASH') { } |
| 1222 | 100 | T | F | if (ref $$self{"data"} eq "HASH") |
| 1224 | 50 | T | F | if (scalar keys %{$$self{"data"};} <= 10) |
| 1235 | 100 | T | F | unless exists $$self{"data"}{$$params{"entry"}} |
| 1246 | 50 | T | F | exists $row->{$_} ? : |
| 1256 | 100 | T | F | if $join_clause |
| 1257 | 100 | T | F | if ($join_clause) { } |
| 100 | T | F | elsif ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 1258 | 100 | T | F | if $where |
| 1262 | 100 | T | F | if $where |
| 1264 | 100 | T | F | if $where |
| 1266 | 100 | T | F | unless ($$self{"no_entry"}) |
| 1270 | 100 | T | F | if (defined $query_args[0]) { } |
| 1278 | 50 | T | F | if ($c = $$self{'cache'}) { } |
| 1280 | 0 | T | F | if (defined $query_args[0]) |
| 1284 | 0 | T | F | if (my $rc = $c->get($key)) |
| 1298 | 50 | T | F | if (my $sth = $$self{$table}->prepare_cached($query)) |
| 1299 | 50 | T | F | unless $sth->execute(@query_args) |
| 1303 | 50 | T | F | if %{$href;} |
| 1305 | 50 | T | F | if $c |
| 1307 | 100 | T | F | if ($rc and not $$self{"no_fixate"}) |
| 1351 | 100 | T | F | if ($$self{"berkeley"}) |
| 1354 | 100 | T | F | wantarray ? : |
| 1362 | 100 | T | F | if (my $join_spec = delete $params->{'join'}) |
| 1366 | 100 | T | F | if (not $join_clause and $$self{"data"} and not $self->_has_complex_criteria($params)) |
| 1367 | 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'}) { } |
| 50 | T | F | elsif (ref $$self{'data'} eq 'HASH') { } |
| 1369 | 100 | T | F | if (ref $$self{"data"} eq "HASH") |
| 1376 | 100 | T | F | unless exists $$self{"data"}{$$params{"entry"}} |
| 1386 | 50 | T | F | exists $row->{$_} ? : |
| 1396 | 100 | T | F | if $join_clause |
| 1397 | 100 | T | F | if ($join_clause) { } |
| 100 | T | F | elsif ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 1398 | 50 | T | F | if $where |
| 1402 | 100 | T | F | if $where |
| 1404 | 100 | T | F | if $where |
| 1406 | 100 | T | F | unless ($$self{"no_entry"}) |
| 1409 | 100 | T | F | unless (wantarray) |
| 1413 | 100 | T | F | if (defined $query_args[0]) { } |
| 1421 | 50 | T | F | if ($c = $$self{'cache'}) { } |
| 1423 | 0 | T | F | if (wantarray) |
| 1426 | 0 | T | F | if (defined $query_args[0]) |
| 1430 | 0 | T | F | if (my $rc = $c->get($key)) |
| 1432 | 0 | T | F | wantarray ? : |
| 1444 | 50 | T | F | if (my $sth = $$self{$table}->prepare_cached($query)) |
| 1445 | 50 | T | F | unless $sth->execute(@query_args) |
| 1449 | 100 | T | F | unless (wantarray) |
| 1452 | 50 | T | F | if $c |
| 1457 | 50 | T | F | if $c |
| 1459 | 50 | T | F | if ($rc) |
| 1460 | 50 | T | F | unless ($$self{"no_fixate"}) |
| 1502 | 100 | T | F | if ($$self{"berkeley"}) |
| 1510 | 100 | T | F | if ($$self{"data"}) |
| 1511 | 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'}) { } |
| 50 | T | F | elsif (not $self->_has_complex_criteria($params) || $$self{$table}) { } |
| 1513 | 100 | T | F | if (ref $$self{"data"} eq "HASH") |
| 1519 | 100 | T | F | exists $$self{'data'}{$$params{'entry'}} && $$self{'data'}{$$params{'entry'}} ? : |
| 1532 | 0 | T | F | exists $row->{$_} ? : |
| 1533 | 0 | T | F | ref $$self{'data'} eq 'HASH' ? : |
| 1541 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 100 | T | F | elsif ($$self{'no_entry'}) { } |
| 1544 | 100 | T | F | if $where |
| 1547 | 100 | T | F | if $where |
| 1550 | 50 | T | F | if $where |
| 1553 | 100 | T | F | if (defined $query_args[0]) { } |
| 1561 | 50 | T | F | if ($c = $$self{'cache'}) { } |
| 1571 | 0 | T | F | if (defined $query_args[0]) |
| 1574 | 0 | T | F | if (my $rc = $c->get($key)) |
| 1576 | 0 | T | F | ref $rc eq 'ARRAY' ? : |
| 1583 | 50 | T | F | if (my $sth = $$self{$table}->prepare_cached($query)) |
| 1584 | 50 | T | F | unless $sth->execute(@query_args) |
| 1628 | 100 | T | F | if (not $$self{'no_entry'}) { } |
| 1637 | 100 | T | F | if ($$self{"data"} and not $$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $$params{"entry"} and not $self->_has_complex_criteria($params)) |
| 1640 | 100 | T | F | exists $$self{'data'}{$$params{'entry'}} ? : |
| 1643 | 100 | T | F | if ($$self{"berkeley"}) |
| 1646 | 50 | T | F | if (not $$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $$params{"entry"}) |
| 1650 | 0 | T | F | if ($$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $id and defined $$params{$id}) |
| 1651 | 0 | T | F | if (my $rc = $$self{"berkeley"}{$$params{$id}}) |
| 1661 | 100 | T | F | $join_spec ? : |
| 1666 | 100 | T | F | if $join_clause |
| 1667 | 100 | T | F | if ($join_clause) { } |
| 100 | T | F | elsif ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 1668 | 50 | T | F | if $where |
| 1672 | 50 | T | F | if $where |
| 1674 | 50 | T | F | if $where |
| 1677 | 100 | T | F | if (defined $query_args[0]) { } |
| 1689 | 100 | T | F | if (defined $query_args[0]) { } |
| 1690 | 50 | T | F | if (wantarray) |
| 1698 | 50 | T | F | if ($c = $$self{"cache"}) |
| 1699 | 0 | T | F | if (my $rc = $c->get($key)) |
| 1700 | 0 | T | F | if (wantarray) { } |
| 1701 | 0 | T | F | if (ref $rc eq "ARRAY") |
| 1711 | 50 | T | F | unless my $sth = $$self{$table}->prepare_cached($query) |
| 1712 | 50 | T | F | unless $sth->execute(@query_args) |
| 1715 | 50 | T | F | if ($c) |
| 1716 | 0 | T | F | if ($rc) { } |
| 1754 | 100 | T | F | if ($$self{"berkeley"}) |
| 1762 | 50 | T | F | unless defined $$args{"query"} |
| 1771 | 50 | T | F | unless $query =~ /\bFROM\b/i |
| 1780 | 100 | T | F | if (exists $args->{'args'}) { } |
| 1781 | 100 | T | F | ref $$args{'args'} eq 'ARRAY' ? : |
| 1782 | 50 | T | F | unless $sth->execute(@bind) |
| 1784 | 50 | T | F | unless $sth->execute |
| 1790 | 100 | T | F | unless (wantarray) |
| 1841 | 100 | T | F | if $$self{"_columns"} |
| 1847 | 100 | T | F | if ($$self{"berkeley"}) |
| 1851 | 100 | T | F | if (my $data = $$self{'data'}) { } |
| 1852 | 100 | T | F | if (ref $data eq 'HASH') { } |
| 50 | T | F | elsif (ref $data eq 'ARRAY' and @{$data;}) { } |
| 1854 | 50 | T | F | if $first |
| 1916 | 100 | T | F | if $$self{"_schema"} |
| 1921 | 100 | T | F | if ($$self{"berkeley"}) |
| 1928 | 100 | T | F | if (my $data = $$self{'data'}) { } |
| 1930 | 100 | T | F | if (ref $data eq 'HASH') { } |
| 50 | T | F | elsif (ref $data eq 'ARRAY' and @{$data;}) { } |
| 1935 | 50 | T | F | if ($first) |
| 1938 | 100 | T | F | $col eq $id ? : |
| 100 | T | F | $col eq $id ? : |
| 1948 | 100 | T | F | if ($driver eq 'SQLite') { } |
| 1962 | 50 | T | F | if ($sth) |
| 2059 | 50 | T | F | if $column eq "DESTROY" |
| 2060 | 100 | T | F | if $column =~ /\A_/ |
| 2062 | 50 | T | F | unless my $self = shift() |
| 2064 | 50 | T | F | unless ref $self |
| 2067 | 100 | T | F | if exists $self->{'auto_load'} and not $$self{"auto_load"} |
| 2070 | 50 | T | F | unless $column =~ /$SAFE_IDENTIFIER/ |
| 2075 | 100 | T | F | if (ref $_[0] eq 'HASH') { } |
| 100 | T | F | elsif (scalar(@_) % 2 == 0) { } |
| 50 | T | F | elsif (scalar @_ == 1) { } |
| 2081 | 50 | T | F | if ($$self{"no_entry"} and not $$self{"berkeley"}) |
| 2087 | 50 | T | F | if ($$self{"berkeley"}) |
| 2088 | 0 | T | F | if (my $id = $$self{"id"}) |
| 2094 | 50 | T | F | unless defined $$self{"type"} |
| 2099 | 100 | T | F | if (wantarray and not $distinct) { } |
| 2100 | 100 | T | F | if (scalar keys %params == 0 and my $data = $$self{"data"}) |
| 2105 | 100 | T | F | ref $data eq 'ARRAY' ? : |
| 2106 | 100 | T | F | exists $_->{$column} ? : |
| 2109 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 2116 | 100 | T | F | if (my $data = $$self{"data"}) |
| 2120 | 100 | 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) { } |
| 2123 | 50 | T | F | if (defined $key) |
| 2127 | 100 | T | F | unless exists $row->{$key} and defined $$row{$key} and $$row{$key} eq $value |
| 2128 | 50 | T | F | exists $row->{$column} ? : |
| 2129 | 50 | T | F | defined $rc ? : |
| 2139 | 100 | T | F | if (exists $data->{$key} and defined(my $hash = $$data{$key})) |
| 2140 | 100 | T | F | unless (exists $hash->{$column}) |
| 2145 | 100 | T | F | if (defined $rc) { } |
| 2152 | 50 | T | F | if (wantarray) |
| 2153 | 50 | T | F | if ($distinct) |
| 2158 | 50 | T | F | exists $r->{$column} ? : |
| 2159 | 100 | T | F | if defined $v |
| 2170 | 0 | T | F | exists $v->{$column} ? : |
| 2176 | 100 | T | F | unless exists $row->{$key} and defined $$row{$key} and $$row{$key} eq $value |
| 2177 | 50 | T | F | unless exists $row->{$column} |
| 2178 | 50 | T | F | if (my $rc = $$row{$column}) |
| 2188 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 2199 | 100 | T | F | unless $k =~ /$SAFE_QUALIFIED/ |
| 2202 | 100 | T | F | defined $value ? : |
| 2203 | 100 | T | F | if (defined $value) { } |
| 2204 | 100 | T | F | $done_where ? : |
| 2208 | 50 | T | F | $done_where ? : |
| 2212 | 100 | T | F | if (wantarray) { } |
| 2217 | 100 | T | F | if (scalar @args and $args[0]) { } |
| 2224 | 50 | T | F | if ($cache = $$self{'cache'}) { } |
| 2225 | 0 | T | F | if (wantarray) |
| 2228 | 0 | T | F | if (defined $args[0]) { } |
| 2233 | 0 | T | F | if (my $rc = $cache->get($key)) |
| 2235 | 0 | T | F | wantarray ? : |
| 2242 | 50 | T | F | unless $sth->execute(@args) |
| 2244 | 100 | T | F | if (wantarray) |
| 2248 | 50 | T | F | if ($cache) |
| 2251 | 50 | T | F | if scalar @rc and not $$self{"no_fixate"} |
| 2256 | 50 | T | F | if ($cache) |
| 2265 | 50 | T | F | if (defined $^V and $^V ge "v5.14.0") |
| 2266 | 50 | T | F | if ${^GLOBAL_PHASE} eq "DESTRUCT" |
| 2273 | 100 | T | F | if (defined $$self{"_temp_fh"}) |
| 2278 | 100 | T | F | if defined $temp_path and -f $temp_path |
| 2286 | 100 | T | F | if (my $dbh = delete $self->{$table_name}) |
| 2287 | 50 | T | F | if $dbh->can("disconnect") |
| 2288 | 50 | T | F | if $dbh->can("finish") |
| 2292 | 100 | T | F | if ($$self{"berkeley"}) |
| 2311 | 100 | T | F | ref $join_spec eq 'ARRAY' ? : |
| 2316 | 100 | T | F | unless my $jtable = $$j{"table"} |
| 2317 | 100 | T | F | unless $jtable =~ /$SAFE_QUALIFIED/ |
| 2319 | 100 | T | F | unless my $on = $$j{"on"} |
| 2320 | 100 | T | F | unless $VALID_JOIN_TYPES{$type} |
| 2332 | 100 | T | F | unless defined $params |
| 2333 | 100 | T | F | if exists $params->{'-or'} or exists $params->{'-and'} |
| 2335 | 100 | T | F | if ref $v |
| 2388 | 100 | T | F | if (defined $or_list or defined $and_list) { } |
| 2396 | 100 | T | F | if ($or_list) |
| 2400 | 50 | T | F | if ($s) |
| 2405 | 100 | T | F | if (@sub_clauses) |
| 2410 | 100 | T | F | if ($and_list) |
| 2414 | 50 | T | F | if ($s) |
| 2419 | 50 | T | F | if (@sub_clauses) |
| 2426 | 100 | T | F | if ($more) |
| 2448 | 100 | T | F | unless $col =~ /$SAFE_QUALIFIED/ |
| 2451 | 100 | T | F | if (ref $val eq 'HASH') { } |
| 100 | T | F | elsif (ref $val) { } |
| 100 | T | F | elsif (not defined $val) { } |
| 100 | T | F | elsif ($val =~ /[%_]/) { } |
| 2454 | 100 | T | F | if ($op eq '-in' or $op eq '-not_in') { } |
| 100 | T | F | elsif ($op eq '-between') { } |
| 100 | T | F | elsif ($op eq '-like') { } |
| 100 | T | F | elsif ($op eq '-not_like') { } |
| 100 | T | F | elsif ($op eq '!=') { } |
| 100 | T | F | elsif ($op =~ /\A[<>]=?\z/) { } |
| 2455 | 100 | T | F | $op eq '-in' ? : |
| 2469 | 100 | T | F | if (not defined $operand) { } |
| 2516 | 100 | T | F | if (delete $params->{'join'}) |
| 2519 | 100 | T | F | unless $_ eq "-or" |
| 100 | T | F | if (grep {$_ eq "-and" unless $_ eq "-or";} keys %{$params;}) |
| 2527 | 100 | T | F | if (@cols) { } |
| 2534 | 100 | T | F | unless ($self->_match_criterion($$row{$col}, $$params{$col})) |
| 2539 | 100 | T | F | if $match |
| 2566 | 100 | T | F | if $pattern eq "%" |
| 2574 | 100 | T | F | if index($lc_pat, "%") == -1 and index($lc_pat, "_") == -1 |
| 2579 | 100 | T | F | if (index($lc_pat, "_") == -1) |
| 2584 | 100 | T | F | if ($first_pct == 0 and $last_pct == 0) |
| 2592 | 100 | T | F | if ($last_pct == $pat_len - 1 and $first_pct == $pat_len - 1) |
| 2601 | 100 | T | F | if ($first_pct == 0 and $last_pct == $pat_len - 1 and $pat_len >= 3) |
| 2603 | 100 | T | F | if (index($needle, "%") == -1) |
| 2622 | 100 | T | F | if ($pc eq '%') { } |
| 2625 | 100 | T | F | $$prev[$j] || $$curr[$j - 1] ? : |
| 2629 | 100 | T | F | $$prev[$j - 1] && ($pc eq '_' || $pc eq substr($lc_str, $j - 1, 1)) ? : |
| 2642 | 100 | T | F | if (ref $crit_val eq "HASH") |
| 2645 | 100 | T | F | if ($op eq '-in') { } |
| 100 | T | F | elsif ($op eq '-not_in') { } |
| 100 | T | F | elsif ($op eq '-between') { } |
| 100 | T | F | elsif ($op eq '-like') { } |
| 100 | T | F | elsif ($op eq '-not_like') { } |
| 100 | T | F | elsif ($op eq '!=') { } |
| 100 | T | F | elsif ($op eq '>') { } |
| 100 | T | F | elsif ($op eq '<') { } |
| 100 | T | F | elsif ($op eq '>=') { } |
| 50 | T | F | elsif ($op eq '<=') { } |
| 2646 | 100 | T | F | unless defined $row_val and grep {$row_val eq $_;} @{$operand;} |
| 2648 | 100 | T | F | if defined $row_val and grep {$row_val eq $_;} @{$operand;} |
| 2650 | 100 | T | F | unless defined $row_val and $row_val >= $$operand[0] and $row_val <= $$operand[1] |
| 2652 | 100 | T | F | unless defined $row_val |
| 2653 | 100 | T | F | unless _like_match($row_val, $operand) |
| 2655 | 100 | T | F | unless defined $row_val |
| 2656 | 100 | T | F | if _like_match($row_val, $operand) |
| 2658 | 100 | T | F | if (not defined $operand) { } |
| 2659 | 100 | T | F | unless defined $row_val |
| 2661 | 100 | T | F | unless defined $row_val and $row_val ne $operand |
| 2664 | 100 | T | F | unless defined $row_val and $row_val > $operand |
| 2666 | 100 | T | F | unless defined $row_val and $row_val < $operand |
| 2668 | 100 | T | F | unless defined $row_val and $row_val >= $operand |
| 2670 | 100 | T | F | unless defined $row_val and $row_val <= $operand |
| 2676 | 100 | T | F | !(defined $row_val && defined $crit_val) ? : |
| 100 | T | F | !(defined $row_val || defined $crit_val) ? : |
| 2690 | 100 | T | F | if ($$params{'table'}) { } |
| 2703 | 100 | T | F | unless $$self{$table} or $$self{"data"} or $$self{"berkeley"} |
| 2716 | 100 | T | F | if (my $dbh = $$self{$table}) |
| 2731 | 100 | T | F | unless do {
BEGIN {
$^H{'autodie::Scope::GuardStack/guard5'} = 'autodie::Scope::Guard=CODE(0x561bad109b50)';
$^H{'no Fatal'} = 'HASH(0x561bad109ad8)';
}
open $fh, "<", $file
} |
| 2737 | 50 | T | F | if ($is_db) |
| 2743 | 0 | T | F | if (tie %bdb, "DB_File", $file, 0, 420, $DB_File::DB_HASH) |
| 2758 | 100 | T | F | unless &Database::Abstraction::read($fh, \my $buf, 4) == 4 |
| 2760 | 100 | T | F | if $magic{unpack "N", $buf} or $magic{unpack "V", $buf} |
| 2763 | 50 | T | F | unless &Database::Abstraction::seek($fh, 12, 0) |
| 2764 | 100 | T | F | unless &Database::Abstraction::read($fh, \$buf, 4) |
| 2780 | 100 | T | F | if $bare =~ /\A(?:localhost|127\.0\.0\.1|::1)\z/i |
| 2785 | 100 | T | F | if $lc_bare eq $me |
| 2801 | 100 | T | F | unless do {
BEGIN {
$^H{'autodie::Scope::GuardStack/guard6'} = 'autodie::Scope::Guard=CODE(0x561bad11af98)';
$^H{'no Fatal'} = 'HASH(0x561bad11af38)';
}
open $fh, "<", $file
} |
| 2805 | 100 | T | F | unless defined $n and $n == 4 |
| 2820 | 50 | T | F | if (scalar @messages and my $logger = $$self{"logger"}) |