| line | % | coverage | branch |
|---|
| 515 | 100 | T | F | if (my $params = Params::Get::get_params(undef, \@_)) |
| 516 | 100 | T | F | if ($$params{"expires_in"} and not $$params{"cache_duration"}) |
| 544 | 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) { } |
| 793 | 100 | T | F | if (scalar @_ == 1 and not ref $_[0]) { } |
| 100 | T | F | elsif (my $params = Params::Get::get_params(undef, @_)) { } |
| 799 | 50 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif ($class eq __PACKAGE__) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 800 | 0 | T | F | if (scalar keys %args > 0) |
| 814 | 100 | T | F | if (defined $args{"id"}) |
| 816 | 100 | T | F | unless $args{"id"} =~ /$SAFE_IDENTIFIER/ |
| 818 | 100 | T | F | if (defined $args{"table"}) |
| 820 | 50 | T | F | unless $args{"table"} =~ /$SAFE_QUALIFIED/ |
| 830 | 50 | T | F | if (defined $args{"logger"} and not &Scalar::Util::blessed($args{"logger"})) |
| 834 | 100 | T | F | unless ($args{"dsn"} or $defaults{"dsn"} or $args{"url"} or $defaults{"url"} or $args{"database"} or $defaults{"database"}) |
| 835 | 100 | T | F | unless $args{"directory"} or $defaults{"directory"} |
| 840 | 100 | T | F | unless ($given_host and not $class->_is_local_host($given_host)) |
| 841 | 100 | T | F | unless -d ($args{'directory'} || $defaults{'directory'}) |
| 847 | 100 | T | F | if (defined $$src{"id"}) |
| 849 | 100 | T | F | unless $$src{"id"} =~ /$SAFE_IDENTIFIER/ |
| 851 | 100 | T | F | if (defined $$src{"host"}) |
| 853 | 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 |
| 863 | 100 | T | F | if (defined $$src{"url"}) |
| 865 | 100 | T | F | unless $$src{"url"} =~ m[\Ahttps?://]i |
| 867 | 100 | T | F | if (defined $$src{"database"}) |
| 869 | 50 | T | F | unless $$src{"database"} =~ m[\Aredis://]i |
| 871 | 100 | T | F | if (defined $$src{"table"}) |
| 873 | 100 | T | F | unless $$src{"table"} =~ /$SAFE_QUALIFIED/ |
| 880 | 50 | T | F | if (defined $$src{"redis_key"} and not defined $$src{"database"}) |
| 883 | 100 | T | F | if (defined $$src{"base_criteria"}) |
| 885 | 100 | T | F | unless ref $bc eq "HASH" |
| 888 | 100 | T | F | if $k =~ /\A-/ |
| 889 | 100 | T | F | unless $k =~ /$SAFE_QUALIFIED/ |
| 919 | 100 | T | F | if (my $logger = $$params{"logger"}) |
| 920 | 100 | T | F | if (&Scalar::Util::blessed($logger)) { } |
| 946 | 0 | T | F | unless defined $db_num and $db_num =~ /\A\d+\z/ |
| 951 | 0 | T | F | unless $$self{"_redis"} |
| 1694 | 50 | T | F | unless defined $cols or $distinct |
| 1695 | 50 | T | F | unless defined $rows and @{$rows;} |
| 1700 | 50 | T | F | if (defined $cols) { } |
| 1703 | 100 | T | F | exists $row->{$_} ? : |
| 1707 | 100 | T | F | if ($distinct) |
| 1708 | 50 | T | F | defined $$r{$_} ? : |
| 1709 | 100 | T | F | if $seen{$key}++ |
| 1831 | 100 | T | F | if ($$self{"berkeley"}) |
| 1838 | 50 | T | F | if (defined $bl and not $bl =~ /\A\d+\z/) |
| 1842 | 50 | T | F | if (defined $bo and not $bo =~ /\A\d+\z/) |
| 1848 | 50 | T | F | if (defined $bsc) |
| 1849 | 0 | T | F | if ($bsd eq 'DESC') { } |
| 1855 | 50 | T | F | if (defined $bl or defined $bo) |
| 1856 | 0 | T | F | if $bo |
| 1857 | 0 | T | F | if defined $bl |
| 1859 | 50 | T | F | if $bcols or $bdist |
| 1863 | 100 | T | F | if ($$self{'no_entry'}) { } |
| 100 | T | F | elsif (scalar @_) { } |
| 1874 | 100 | T | F | if (my $join_spec = delete $params->{'join'}) |
| 1880 | 100 | T | F | if (defined $limit) |
| 1881 | 100 | T | F | if (not $limit =~ /\A\d+\z/) { } |
| 1888 | 100 | T | F | if (defined $offset) |
| 1889 | 100 | T | F | if (not $offset =~ /\A\d+\z/) { } |
| 1901 | 100 | T | F | if (defined $columns) |
| 1902 | 50 | T | F | if (ref $columns ne 'ARRAY') { } |
| 1908 | 100 | T | F | if (defined $c and $c =~ /$SAFE_QUALIFIED/) { } |
| 1914 | 50 | T | F | @valid ? : |
| 1920 | 100 | T | F | if (not $join_clause and $$self{"data"} and not $self->_has_complex_criteria($params)) |
| 1921 | 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'}) { } |
| 100 | T | F | elsif (ref $$self{'data'} eq 'HASH') { } |
| 100 | T | F | elsif (ref $$self{'data'} eq 'ARRAY' and not $$self{$table}) { } |
| 1924 | 100 | T | F | if (ref $$self{'data'} eq 'HASH') { } |
| 1926 | 50 | T | F | if (scalar keys %{$$self{"data"};} <= 10) |
| 1933 | 100 | T | F | if (defined $sort_col) |
| 1934 | 100 | T | F | if ($sort_dir eq 'DESC') { } |
| 1940 | 100 | T | F | if (defined $offset or defined $limit) |
| 1941 | 100 | T | F | if $offset |
| 1942 | 100 | T | F | if defined $limit |
| 1944 | 50 | T | F | $columns ? : |
| 100 | T | F | if $columns |
| 1951 | 100 | T | F | unless exists $$self{"data"}{$$params{"entry"}} |
| 1953 | 50 | T | F | if (defined $sort_col) |
| 1954 | 0 | T | F | if ($sort_dir eq 'DESC') { } |
| 1960 | 50 | T | F | if (defined $offset or defined $limit) |
| 1961 | 0 | T | F | if $offset |
| 1962 | 0 | T | F | if defined $limit |
| 1964 | 0 | T | F | $columns ? : |
| 50 | T | F | if $columns |
| 1976 | 50 | T | F | exists $row->{$_} ? : |
| 1978 | 50 | T | F | if (defined $sort_col) |
| 1979 | 0 | T | F | if ($sort_dir eq 'DESC') { } |
| 1985 | 50 | T | F | if (defined $offset or defined $limit) |
| 1986 | 0 | T | F | if $offset |
| 1987 | 0 | T | F | if defined $limit |
| 1989 | 100 | T | F | if $columns or $distinct |
| 1998 | 50 | T | F | exists $row->{$_} ? : |
| 2000 | 50 | T | F | if (defined $sort_col) |
| 2001 | 0 | T | F | if ($sort_dir eq 'DESC') { } |
| 2007 | 50 | T | F | if (defined $offset or defined $limit) |
| 2008 | 0 | T | F | if $offset |
| 2009 | 0 | T | F | if defined $limit |
| 2011 | 50 | T | F | if $columns or $distinct |
| 2019 | 50 | T | F | if ($$self{"type"} // "") eq "Redis" |
| 2025 | 100 | T | F | if ($distinct) { } |
| 100 | T | F | elsif ($columns) { } |
| 2026 | 100 | T | F | if ($columns) { } |
| 2037 | 100 | T | F | if $join_clause |
| 2038 | 100 | T | F | if ($join_clause) { } |
| 100 | T | F | elsif ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 2039 | 100 | T | F | if $where |
| 2043 | 100 | T | F | if $where |
| 2045 | 100 | T | F | if $where |
| 2047 | 50 | T | F | if (defined $sort_col) { } |
| 100 | T | F | elsif (not $$self{'no_entry'}) { } |
| 2052 | 50 | T | F | if (defined $limit) { } |
| 50 | T | F | elsif (defined $offset) { } |
| 2060 | 0 | T | F | if $dbh and ($$dbh{"Driver"}{"Name"} // "") eq "SQLite" or ($$self{"_dialect"} // "") eq "sqlite" |
| 2062 | 50 | T | F | if (defined $offset) |
| 2067 | 100 | T | F | if (defined $query_args[0]) { } |
| 2075 | 100 | T | F | if ($c = $$self{'cache'}) { } |
| 2077 | 100 | T | F | if (defined $query_args[0]) |
| 2081 | 100 | T | F | if (my $rc = $c->get($key)) |
| 2095 | 50 | T | F | if (my $sth = $$self{$table}->prepare_cached($query)) |
| 2096 | 50 | T | F | unless $sth->execute(@query_args) |
| 2103 | 100 | T | F | if $c |
| 2105 | 100 | T | F | if ($rc and not $$self{"no_fixate"}) |
| 2180 | 100 | T | F | unless ref $callback eq "CODE" |
| 2187 | 50 | T | F | if ($$self{"berkeley"}) |
| 2192 | 0 | T | F | if (defined $bl and not $bl =~ /\A\d+\z/) |
| 2196 | 0 | T | F | if (defined $bo and not $bo =~ /\A\d+\z/) |
| 2202 | 0 | T | F | if (defined $bsc) |
| 2203 | 0 | T | F | if ($bsd eq 'DESC') { } |
| 2209 | 0 | T | F | if (defined $bl or defined $bo) |
| 2210 | 0 | T | F | if $bo |
| 2211 | 0 | T | F | if defined $bl |
| 2222 | 100 | T | F | if ($$self{'no_entry'}) { } |
| 100 | T | F | elsif (scalar @_) { } |
| 2233 | 50 | T | F | if (my $join_spec = delete $params->{'join'}) |
| 2239 | 100 | T | F | if (defined $limit) |
| 2240 | 50 | T | F | if (not $limit =~ /\A\d+\z/) { } |
| 2247 | 100 | T | F | if (defined $offset) |
| 2248 | 50 | T | F | if (not $offset =~ /\A\d+\z/) { } |
| 2259 | 100 | T | F | if (not $join_clause and $$self{"data"} and not $self->_has_complex_criteria($params)) |
| 2261 | 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') { } |
| 0 | T | F | elsif (ref $$self{'data'} eq 'ARRAY' and not $$self{$table}) { } |
| 2262 | 100 | T | F | ref $$self{'data'} eq 'HASH' ? : |
| 2264 | 100 | T | F | unless exists $$self{"data"}{$$params{"entry"}} |
| 2271 | 50 | T | F | exists $row->{$_} ? : |
| 2278 | 0 | T | F | exists $row->{$_} ? : |
| 2281 | 50 | T | F | if (@rc) |
| 2282 | 100 | T | F | if (defined $sort_col) |
| 2283 | 100 | T | F | if ($sort_dir eq 'DESC') { } |
| 2289 | 100 | T | F | if (defined $offset or defined $limit) |
| 2290 | 100 | T | F | if $offset |
| 2291 | 100 | T | F | if defined $limit |
| 2307 | 50 | T | F | if $join_clause |
| 2308 | 50 | T | F | if ($join_clause) { } |
| 100 | T | F | elsif ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 2309 | 0 | T | F | if $where |
| 2313 | 50 | T | F | if $where |
| 2315 | 100 | T | F | if $where |
| 2317 | 100 | T | F | if (defined $sort_col) { } |
| 100 | T | F | elsif (not $$self{'no_entry'}) { } |
| 2322 | 100 | T | F | if (defined $limit) { } |
| 50 | T | F | elsif (defined $offset) { } |
| 2329 | 0 | T | F | if $dbh and ($$dbh{"Driver"}{"Name"} // "") eq "SQLite" or ($$self{"_dialect"} // "") eq "sqlite" |
| 2331 | 50 | T | F | if (defined $offset) |
| 2336 | 100 | T | F | if (defined $query_args[0]) { } |
| 2343 | 50 | T | F | unless my $sth = $$self{$table}->prepare_cached($query) |
| 2344 | 50 | T | F | unless $sth->execute(@query_args) |
| 2354 | 100 | T | F | if (my $err = $@) |
| 2384 | 100 | T | F | if ($$self{"berkeley"}) |
| 2389 | 50 | T | F | if (defined $bl and not $bl =~ /\A\d+\z/) |
| 2393 | 50 | T | F | if (defined $bo and not $bo =~ /\A\d+\z/) |
| 2399 | 50 | T | F | if (defined $bsc) |
| 2400 | 0 | T | F | if ($bsd eq 'DESC') { } |
| 2406 | 50 | T | F | if (defined $bl or defined $bo) |
| 2407 | 0 | T | F | if $bo |
| 2408 | 0 | T | F | if defined $bl |
| 2410 | 100 | T | F | wantarray ? : |
| 2418 | 100 | T | F | if (my $join_spec = delete $params->{'join'}) |
| 2424 | 50 | T | F | if (defined $limit) |
| 2425 | 0 | T | F | if (not $limit =~ /\A\d+\z/) { } |
| 2432 | 50 | T | F | if (defined $offset) |
| 2433 | 0 | T | F | if (not $offset =~ /\A\d+\z/) { } |
| 2444 | 100 | T | F | if (not $join_clause and $$self{"data"} and not $self->_has_complex_criteria($params)) |
| 2445 | 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') { } |
| 0 | T | F | elsif (ref $$self{'data'} eq 'ARRAY' and not $$self{$table}) { } |
| 2449 | 100 | T | F | ref $$self{'data'} eq 'HASH' ? : |
| 2450 | 50 | T | F | if (defined $sort_col) |
| 2451 | 0 | T | F | if ($sort_dir eq 'DESC') { } |
| 2457 | 50 | T | F | if (defined $offset or defined $limit) |
| 2458 | 0 | T | F | if $offset |
| 2459 | 0 | T | F | if defined $limit |
| 2465 | 100 | T | F | unless exists $$self{"data"}{$$params{"entry"}} |
| 2466 | 50 | T | F | if (defined $offset or defined $limit) |
| 2469 | 0 | T | F | if $offset |
| 2470 | 0 | T | F | if defined $limit |
| 2471 | 0 | T | F | wantarray ? : |
| 2484 | 50 | T | F | exists $row->{$_} ? : |
| 2486 | 50 | T | F | if (defined $sort_col) |
| 2487 | 0 | T | F | if ($sort_dir eq 'DESC') { } |
| 2493 | 50 | T | F | if (defined $offset or defined $limit) |
| 2494 | 0 | T | F | if $offset |
| 2495 | 0 | T | F | if defined $limit |
| 2505 | 0 | T | F | exists $row->{$_} ? : |
| 2507 | 0 | T | F | if (defined $sort_col) |
| 2508 | 0 | T | F | if ($sort_dir eq 'DESC') { } |
| 2514 | 0 | T | F | if (defined $offset or defined $limit) |
| 2515 | 0 | T | F | if $offset |
| 2516 | 0 | T | F | if defined $limit |
| 2526 | 100 | T | F | if $join_clause |
| 2527 | 100 | T | F | if ($join_clause) { } |
| 100 | T | F | elsif ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 2528 | 50 | T | F | if $where |
| 2532 | 100 | T | F | if $where |
| 2534 | 100 | T | F | if $where |
| 2536 | 50 | T | F | if (defined $sort_col) { } |
| 100 | T | F | elsif (not $$self{'no_entry'}) { } |
| 2541 | 50 | T | F | if (defined $limit) { } |
| 100 | T | F | elsif (not wantarray) { } |
| 50 | T | F | elsif (defined $offset) { } |
| 2544 | 0 | T | F | if (defined $offset) |
| 2549 | 50 | T | F | if (defined $offset) { } |
| 2560 | 0 | T | F | if $dbh and ($$dbh{"Driver"}{"Name"} // "") eq "SQLite" or ($$self{"_dialect"} // "") eq "sqlite" |
| 2565 | 100 | T | F | if (defined $query_args[0]) { } |
| 2573 | 100 | T | F | if ($c = $$self{'cache'}) { } |
| 2575 | 100 | T | F | if (wantarray) |
| 2578 | 100 | T | F | if (defined $query_args[0]) |
| 2582 | 100 | T | F | if (my $rc = $c->get($key)) |
| 2584 | 100 | T | F | wantarray ? : |
| 2596 | 50 | T | F | if (my $sth = $$self{$table}->prepare_cached($query)) |
| 2597 | 50 | T | F | unless $sth->execute(@query_args) |
| 2601 | 100 | T | F | unless (wantarray) |
| 2604 | 100 | T | F | if $c |
| 2609 | 100 | T | F | if $c |
| 2611 | 50 | T | F | if ($rc) |
| 2612 | 50 | T | F | unless ($$self{"no_fixate"}) |
| 2670 | 100 | T | F | if ($$self{"berkeley"}) |
| 2678 | 100 | T | F | if ($$self{"data"}) |
| 2679 | 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'}) { } |
| 100 | T | F | elsif (not $self->_has_complex_criteria($params) || $$self{$table}) { } |
| 2681 | 100 | T | F | if (ref $$self{"data"} eq "HASH") |
| 2687 | 100 | T | F | exists $$self{'data'}{$$params{'entry'}} && $$self{'data'}{$$params{'entry'}} ? : |
| 2700 | 50 | T | F | exists $row->{$_} ? : |
| 2701 | 50 | T | F | ref $$self{'data'} eq 'HASH' ? : |
| 2709 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 100 | T | F | elsif ($$self{'no_entry'}) { } |
| 2712 | 100 | T | F | if $where |
| 2715 | 100 | T | F | if $where |
| 2718 | 100 | T | F | if $where |
| 2721 | 100 | T | F | if (defined $query_args[0]) { } |
| 2729 | 100 | T | F | if ($c = $$self{'cache'}) { } |
| 2739 | 100 | T | F | if (defined $query_args[0]) |
| 2742 | 100 | T | F | if (my $rc = $c->get($key)) |
| 2744 | 50 | T | F | ref $rc eq 'ARRAY' ? : |
| 2751 | 50 | T | F | if (my $sth = $$self{$table}->prepare_cached($query)) |
| 2752 | 50 | T | F | unless $sth->execute(@query_args) |
| 2819 | 100 | T | F | if (not $$self{'no_entry'}) { } |
| 2827 | 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)) |
| 2830 | 100 | T | F | unless exists $$self{"data"}{$$params{"entry"}} |
| 2832 | 100 | T | F | if (my $bc = $$self{"base_criteria"}) |
| 2833 | 50 | T | F | exists $row->{$_} ? : |
| 100 | T | F | unless &all(sub {
$self->_match_criterion(exists $row->{$_} ? $$row{$_} : undef, $$bc{$_}, $_);
}
, keys %{$bc;}) |
| 2838 | 100 | T | F | if ($$self{"berkeley"}) |
| 2839 | 50 | T | F | if (not $$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $$params{"entry"}) |
| 2843 | 0 | T | F | if ($$self{"no_entry"} and scalar keys %{$params;} == 1 and defined $id and defined $$params{$id}) |
| 2844 | 0 | T | F | if (my $rc = $$self{"berkeley"}{$$params{$id}}) |
| 2853 | 50 | T | F | if (defined $raw_target) |
| 2855 | 0 | T | F | unless $raw_target =~ /$SAFE_QUALIFIED/ |
| 2861 | 100 | T | F | $join_spec ? : |
| 2866 | 100 | T | F | if $join_clause |
| 2867 | 100 | T | F | if ($join_clause) { } |
| 100 | T | F | elsif ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 2868 | 50 | T | F | if $where |
| 2872 | 50 | T | F | if $where |
| 2874 | 50 | T | F | if $where |
| 2877 | 100 | T | F | if (defined $query_args[0]) { } |
| 2889 | 100 | T | F | if ($c) |
| 2891 | 50 | T | F | if (defined $query_args[0]) { } |
| 2892 | 100 | T | F | if wantarray |
| 2897 | 100 | T | F | if (my $rc = $c->get($key)) |
| 2898 | 50 | T | F | if (wantarray) { } |
| 2899 | 0 | T | F | if (ref $rc eq "ARRAY") |
| 2909 | 50 | T | F | unless my $sth = $$self{$table}->prepare_cached($query) |
| 2910 | 50 | T | F | unless $sth->execute(@query_args) |
| 2913 | 100 | T | F | if ($c) |
| 2914 | 50 | T | F | if ($rc) { } |
| 2952 | 100 | T | F | if ($$self{"berkeley"}) |
| 2960 | 50 | T | F | unless defined $$args{"query"} |
| 2969 | 50 | T | F | unless $query =~ /\bFROM\b/i |
| 2978 | 100 | T | F | if (exists $args->{'args'}) { } |
| 2979 | 100 | T | F | ref $$args{'args'} eq 'ARRAY' ? : |
| 2980 | 50 | T | F | unless $sth->execute(@bind) |
| 2982 | 50 | T | F | unless $sth->execute |
| 2988 | 100 | T | F | unless (wantarray) |
| 3020 | 100 | T | F | if (($$self{"_dialect"} // "") eq "sqlite") |
| 3022 | 50 | T | F | if (defined $dsn and $dsn =~ /\Adbi:SQLite:(?:dbname=)?(.+)\z/i) |
| 3025 | 50 | T | F | if @st |
| 3077 | 100 | T | F | if $$self{"_columns"} |
| 3083 | 100 | T | F | if ($$self{"berkeley"}) |
| 3087 | 100 | T | F | if (my $data = $$self{'data'}) { } |
| 3088 | 100 | T | F | if (ref $data eq 'HASH') { } |
| 50 | T | F | elsif (ref $data eq 'ARRAY' and @{$data;}) { } |
| 3090 | 50 | T | F | if $first |
| 3181 | 100 | T | F | if $$self{"_schema"} |
| 3186 | 100 | T | F | if ($$self{"berkeley"}) |
| 3193 | 100 | T | F | if (my $data = $$self{'data'}) { } |
| 3196 | 100 | T | F | if (ref $data eq 'HASH') { } |
| 50 | T | F | elsif (ref $data eq 'ARRAY' and @{$data;}) { } |
| 3198 | 100 | T | F | if ($$self{"infer_types"} and $first) |
| 3202 | 50 | T | F | if ++$n >= 100 |
| 3207 | 100 | T | F | if ($$self{"infer_types"}) |
| 3208 | 50 | T | F | $#{$data;} < 99 ? : |
| 3212 | 50 | T | F | if ($first) |
| 3216 | 50 | T | F | exists $_->{$col} ? : |
| 100 | T | F | @sample ? : |
| 3218 | 100 | T | F | $col eq $id ? : |
| 100 | T | F | $col eq $id ? : |
| 3228 | 100 | T | F | if ($driver eq 'SQLite') { } |
| 3242 | 50 | T | F | if ($sth) |
| 3293 | 100 | T | F | unless $dbh and ref $dbh and ($$dbh{"Driver"}{"Name"} // "") eq "SQLite" |
| 3411 | 100 | T | F | if ($$self{'no_entry'}) { } |
| 100 | T | F | elsif (scalar @_) { } |
| 3424 | 100 | T | F | if ($join_spec) |
| 3430 | 100 | T | F | if ($join_clause and not $$self{$table}) |
| 3431 | 50 | T | F | $$self{'berkeley'} ? : |
| 3440 | 100 | T | F | if ($$self{$table} and not $has_perl_only) |
| 3443 | 100 | T | F | if (defined $$args[0]) { } |
| 3450 | 50 | T | F | if ($c = $$self{'cache'}) { } |
| 3452 | 0 | T | F | if defined $$args[0] |
| 3454 | 0 | T | F | if (my $rc = $c->get($key)) |
| 3464 | 50 | T | F | unless (my $sth = $$self{$table}->prepare_cached($sql)) |
| 3468 | 50 | T | F | unless $sth->execute(@{$args;}) |
| 3481 | 50 | T | F | if (not defined $$row{$as} and $fn eq 'sum' || $fn eq 'count' || $fn eq 'count_distinct') |
| 3488 | 50 | T | F | if $c |
| 3489 | 100 | T | F | unless $no_fixate |
| 3499 | 100 | T | F | if (my $hav = $$spec{"having"}) |
| 3504 | 100 | T | F | if (my $s = $$spec{'sort'}) { } |
| 100 | T | F | elsif (@by_names) { } |
| 3510 | 50 | T | F | $is_measure ? : |
| 50 | T | F | $is_measure ? : |
| 100 | T | F | $desc ? : |
| 3519 | 50 | T | F | if $cmp |
| 3525 | 50 | T | F | if $$spec{"offset"} |
| 3526 | 100 | T | F | if defined $$spec{"limit"} |
| 3528 | 100 | T | F | unless $no_fixate |
| 3548 | 100 | T | F | unless ref $by eq "ARRAY" |
| 3553 | 100 | T | F | unless defined $col and $col =~ /$SAFE_QUALIFIED/ |
| 3560 | 100 | T | F | unless ref $meas eq "ARRAY" and scalar @{$meas;} > 0 |
| 3564 | 100 | T | F | unless ref $m eq "HASH" |
| 3572 | 100 | T | F | unless $VALID_AGG_FNS{$fn} |
| 3574 | 100 | T | F | if ($fn ne "count") |
| 3575 | 100 | T | F | unless defined $col and length $col |
| 3578 | 100 | T | F | if (defined $col and length $col) |
| 3579 | 100 | T | F | unless $col =~ /$SAFE_QUALIFIED/ |
| 3583 | 100 | T | F | unless defined $as and length $as |
| 3585 | 100 | T | F | unless $as =~ /$SAFE_IDENTIFIER/ |
| 3588 | 100 | T | F | if $alias_set{$as} |
| 3590 | 100 | T | F | if $by_name_set{$as} |
| 3595 | 100 | T | F | if ($fn eq 'count' and not defined $col && length $col) { } |
| 100 | T | F | elsif ($fn eq 'count_distinct') { } |
| 100 | T | F | elsif ($fn eq 'median') { } |
| 100 | T | F | elsif ($fn eq 'stddev') { } |
| 3610 | 100 | T | F | if (defined $having) |
| 3611 | 100 | T | F | unless ref $having eq "HASH" |
| 3614 | 100 | T | F | if $k eq "-or" or $k eq "-and" |
| 3616 | 100 | T | F | unless $by_name_set{$k} or $alias_set{$k} |
| 3621 | 100 | T | F | if (defined $sort_by) |
| 3622 | 100 | T | F | ref $sort_by eq 'ARRAY' ? : |
| 3625 | 100 | T | F | defined $sort_dir ? : |
| 3627 | 100 | T | F | unless defined $sort_col and $by_name_set{$sort_col} || $alias_set{$sort_col} |
| 3628 | 100 | T | F | unless $sort_dir eq "ASC" or $sort_dir eq "DESC" |
| 3632 | 100 | T | F | if (defined $limit) |
| 3633 | 100 | T | F | if (not $limit =~ /\A\d+\z/) { } |
| 3640 | 100 | T | F | if (defined $offset) |
| 3641 | 100 | T | F | if (not $offset =~ /\A\d+\z/) { } |
| 3650 | 100 | T | F | defined $sort_col ? : |
| 3676 | 100 | T | F | if $join_clause |
| 3682 | 100 | T | F | if ($join_clause) { } |
| 100 | T | F | elsif (($$self{'type'} // '') eq 'CSV' and not $$self{'no_entry'}) { } |
| 3683 | 50 | T | F | if $where |
| 3687 | 50 | T | F | if $where |
| 3689 | 100 | T | F | if $where |
| 3693 | 100 | T | F | if @by_names |
| 3697 | 100 | T | F | if (my $hav = $$spec{"having"}) |
| 3700 | 50 | T | F | if ($hfrag) |
| 3707 | 100 | T | F | if (my $s = $$spec{'sort'}) { } |
| 100 | T | F | elsif (@by_names) { } |
| 3714 | 100 | T | F | if (defined $$spec{'limit'}) { } |
| 100 | T | F | elsif (defined $$spec{'offset'}) { } |
| 3721 | 50 | T | F | if $dbh and ($$dbh{"Driver"}{"Name"} // "") eq "SQLite" or ($$self{"_dialect"} // "") eq "sqlite" |
| 3723 | 100 | T | F | if (defined $$spec{"offset"}) |
| 3758 | 100 | T | F | defined $agg_expr ? : |
| 3760 | 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 =~ /[%_]/) { } |
| 3763 | 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/) { } |
| 3764 | 100 | T | F | $op eq '-in' ? : |
| 3778 | 100 | T | F | if (not defined $operand) { } |
| 3816 | 100 | T | F | if ($k eq '-or') { } |
| 100 | T | F | elsif ($k eq '-and') { } |
| 3819 | 100 | T | F | if ($self->_match_criteria($row, $sub)) |
| 3824 | 100 | T | F | unless $found |
| 3827 | 100 | T | F | unless $self->_match_criteria($row, $sub) |
| 3830 | 100 | T | F | exists $row->{$k} ? : |
| 3831 | 100 | T | F | unless $self->_match_criterion($row_val, $$criteria{$k}, $k) |
| 3853 | 50 | T | F | $col && $$self{'_schema'} ? : |
| 3855 | 0 | T | F | $t eq 'INTEGER' || $t eq 'REAL' ? : |
| 3865 | 50 | T | F | exists $$row{$$_{'name'}} ? : |
| 3869 | 100 | T | F | unless (exists $groups{$key}) |
| 3874 | 50 | T | F | exists $$row{$$b{'name'}} ? : |
| 3880 | 100 | T | F | if ($fn eq 'sum') { } |
| 100 | T | F | elsif ($fn eq 'avg') { } |
| 100 | T | F | elsif ($fn eq 'min' or $fn eq 'max') { } |
| 100 | T | F | elsif ($fn eq 'count') { } |
| 100 | T | F | elsif ($fn eq 'count_distinct') { } |
| 50 | T | F | elsif ($fn eq 'median' or $fn eq 'stddev') { } |
| 3905 | 100 | T | F | defined $col && exists $row->{$col} ? : |
| 3907 | 100 | T | F | if ($fn eq 'sum') { } |
| 100 | T | F | elsif ($fn eq 'avg') { } |
| 100 | T | F | elsif ($fn eq 'min') { } |
| 100 | T | F | elsif ($fn eq 'max') { } |
| 100 | T | F | elsif ($fn eq 'count') { } |
| 100 | T | F | elsif ($fn eq 'count_distinct') { } |
| 50 | T | F | elsif ($fn eq 'median' or $fn eq 'stddev') { } |
| 3908 | 100 | T | F | if (defined $val and length $val and &Scalar::Util::looks_like_number($val)) { } |
| 50 | T | F | elsif (defined $val and length $val) { } |
| 3915 | 100 | T | F | if (defined $val and length $val and &Scalar::Util::looks_like_number($val)) { } |
| 100 | T | F | elsif (defined $val and length $val) { } |
| 3923 | 100 | T | F | if (defined $val) |
| 3924 | 50 | T | F | $numeric ? : |
| 100 | T | F | if (not defined $$acc{'val'}) { } |
| 100 | T | F | elsif ($numeric ? $val < $$acc{'val'} : $val lt $$acc{'val'}) { } |
| 3931 | 50 | T | F | if (defined $val) |
| 3932 | 50 | T | F | $numeric ? : |
| 100 | T | F | if (not defined $$acc{'val'}) { } |
| 100 | T | F | elsif ($numeric ? $val > $$acc{'val'} : $val gt $$acc{'val'}) { } |
| 3939 | 100 | T | F | if (defined $col) { } |
| 3940 | 100 | T | F | if defined $val |
| 3945 | 100 | T | F | if defined $val |
| 3947 | 50 | T | F | if (defined $val and length $val and &Scalar::Util::looks_like_number($val)) { } |
| 0 | T | F | elsif (defined $val and length $val) { } |
| 3973 | 100 | T | F | if ($fn eq 'sum') { } |
| 100 | T | F | elsif ($fn eq 'avg') { } |
| 100 | T | F | elsif ($fn eq 'min' or $fn eq 'max') { } |
| 100 | T | F | elsif ($fn eq 'count') { } |
| 100 | T | F | elsif ($fn eq 'count_distinct') { } |
| 100 | T | F | elsif ($fn eq 'median') { } |
| 50 | T | F | elsif ($fn eq 'stddev') { } |
| 3974 | 100 | T | F | if ($$acc{"bad"} and not $warned{$as}++) |
| 3979 | 100 | T | F | if ($$acc{"bad"} and not $warned{$as}++) |
| 3982 | 100 | T | F | $$acc{'cnt'} ? : |
| 3990 | 50 | T | F | if ($$acc{"bad"} and not $warned{$as}++) |
| 3995 | 50 | T | F | if ($n == 0) { } |
| 100 | T | F | elsif ($n % 2) { } |
| 4003 | 50 | T | F | if ($$acc{"bad"} and not $warned{$as}++) |
| 4007 | 100 | T | F | if ($n < 2) { } |
| 4008 | 50 | T | F | $n == 1 ? : |
| 4106 | 50 | T | F | if $column eq "DESTROY" |
| 4107 | 100 | T | F | if $column =~ /\A_/ |
| 4109 | 50 | T | F | unless my $self = shift() |
| 4111 | 50 | T | F | unless ref $self |
| 4114 | 100 | T | F | if exists $self->{'auto_load'} and not $$self{"auto_load"} |
| 4117 | 50 | T | F | unless $column =~ /$SAFE_IDENTIFIER/ |
| 4122 | 100 | T | F | if (ref $_[0] eq 'HASH') { } |
| 100 | T | F | elsif (scalar(@_) % 2 == 0) { } |
| 50 | T | F | elsif (scalar @_ == 1) { } |
| 4128 | 50 | T | F | if ($$self{"no_entry"} and not $$self{"berkeley"}) |
| 4134 | 50 | T | F | if ($$self{"berkeley"}) |
| 4135 | 0 | T | F | if (my $id = $$self{"id"}) |
| 4141 | 50 | T | F | unless defined $$self{"type"} |
| 4146 | 100 | T | F | if (wantarray and not $distinct) { } |
| 4147 | 100 | T | F | if (scalar keys %params == 0 and my $data = $$self{"data"}) |
| 4152 | 100 | T | F | ref $data eq 'ARRAY' ? : |
| 4153 | 100 | T | F | exists $_->{$column} ? : |
| 4155 | 50 | T | F | if ($$self{"data"} and not $$self{$table} and not $self->_has_complex_criteria(\%params)) |
| 4158 | 50 | T | F | ref $$self{'data'} eq 'ARRAY' ? : |
| 4159 | 50 | T | F | exists $_->{$column} ? : |
| 4162 | 50 | T | F | exists $row->{$_} ? : |
| 4166 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 4173 | 100 | T | F | if (my $data = $$self{"data"}) |
| 4177 | 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) { } |
| 4180 | 50 | T | F | if (defined $key) |
| 4184 | 100 | T | F | unless exists $row->{$key} and defined $$row{$key} and $$row{$key} eq $value |
| 4185 | 50 | T | F | exists $row->{$column} ? : |
| 4186 | 50 | T | F | defined $rc ? : |
| 4196 | 100 | T | F | if (exists $data->{$key} and defined(my $hash = $$data{$key})) |
| 4197 | 100 | T | F | unless (exists $hash->{$column}) |
| 4202 | 100 | T | F | if (defined $rc) { } |
| 4209 | 50 | T | F | if (wantarray) |
| 4210 | 50 | T | F | if ($distinct) |
| 4215 | 50 | T | F | exists $r->{$column} ? : |
| 4216 | 100 | T | F | if defined $v |
| 4227 | 0 | T | F | exists $v->{$column} ? : |
| 4233 | 100 | T | F | unless exists $row->{$key} and defined $$row{$key} and $$row{$key} eq $value |
| 4234 | 50 | T | F | unless exists $row->{$column} |
| 4235 | 50 | T | F | if (my $rc = $$row{$column}) |
| 4245 | 100 | T | F | if ($$self{'type'} eq 'CSV' and not $$self{'no_entry'}) { } |
| 4256 | 100 | T | F | unless $k =~ /$SAFE_QUALIFIED/ |
| 4259 | 100 | T | F | defined $value ? : |
| 4260 | 100 | T | F | if (defined $value) { } |
| 4261 | 100 | T | F | $done_where ? : |
| 4265 | 50 | T | F | $done_where ? : |
| 4269 | 100 | T | F | if (wantarray) { } |
| 4274 | 100 | T | F | if (scalar @args and $args[0]) { } |
| 4281 | 100 | T | F | if ($cache = $$self{'cache'}) { } |
| 4282 | 100 | T | F | if (wantarray) |
| 4285 | 100 | T | F | if (defined $args[0]) { } |
| 4290 | 100 | T | F | if (my $rc = $cache->get($key)) |
| 4292 | 100 | T | F | wantarray ? : |
| 4299 | 50 | T | F | unless $sth->execute(@args) |
| 4301 | 100 | T | F | if (wantarray) |
| 4305 | 100 | T | F | if ($cache) |
| 4308 | 50 | T | F | if scalar @rc and not $$self{"no_fixate"} |
| 4313 | 100 | T | F | if ($cache) |
| 4322 | 50 | T | F | if (defined $^V and $^V ge "v5.14.0") |
| 4323 | 50 | T | F | if ${^GLOBAL_PHASE} eq "DESTRUCT" |
| 4330 | 100 | T | F | if (defined $$self{"_temp_fh"}) |
| 4336 | 100 | T | F | if defined $temp_path and -f $temp_path |
| 4341 | 50 | T | F | if (my $redis = delete $self->{'_redis'}) |
| 4349 | 100 | T | F | if (my $dbh = delete $self->{$table_name}) |
| 4350 | 50 | T | F | if $dbh->can("disconnect") |
| 4351 | 50 | T | F | if $dbh->can("finish") |
| 4355 | 100 | T | F | if ($$self{"berkeley"}) |
| 4374 | 100 | T | F | ref $join_spec eq 'ARRAY' ? : |
| 4379 | 100 | T | F | unless my $jtable = $$j{"table"} |
| 4380 | 100 | T | F | unless $jtable =~ /$SAFE_QUALIFIED/ |
| 4382 | 100 | T | F | unless my $on = $$j{"on"} |
| 4383 | 100 | T | F | unless $VALID_JOIN_TYPES{$type} |
| 4399 | 100 | T | F | if defined $_ |
| 4400 | 100 | T | F | unless @non_null |
| 4401 | 100 | T | F | if &all(sub {
$_ =~ /$INFER_INT_RE/;
}
, @non_null) |
| 4402 | 100 | T | F | if &all(sub {
$_ =~ /$INFER_REAL_RE/;
}
, @non_null) |
| 4403 | 100 | T | F | if &all(sub {
$_ =~ /$INFER_TS_RE/;
}
, @non_null) |
| 4404 | 100 | T | F | if &all(sub {
$_ =~ /$INFER_DATE_RE/;
}
, @non_null) |
| 4427 | 100 | T | F | unless defined $sb |
| 4428 | 100 | T | F | ref $sb eq 'ARRAY' ? : |
| 4429 | 100 | T | F | defined $dir ? : |
| 4430 | 100 | T | F | unless (defined $col and $col =~ /$SAFE_QUALIFIED/) |
| 4434 | 100 | T | F | unless ($dir eq "ASC" or $dir eq "DESC") |
| 4446 | 100 | T | F | unless defined $params |
| 4448 | 100 | T | F | if exists $params->{'-or'} or exists $params->{'-and'} |
| 4457 | 100 | T | F | &any(sub {
ref $_;
}
, values %{$params;}) ? : |
| 4509 | 100 | T | F | if (defined $or_list or defined $and_list) { } |
| 4517 | 100 | T | F | if ($or_list) |
| 4521 | 50 | T | F | if ($s) |
| 4526 | 100 | T | F | if (@sub_clauses) |
| 4531 | 100 | T | F | if ($and_list) |
| 4535 | 50 | T | F | if ($s) |
| 4540 | 100 | T | F | if (@sub_clauses) |
| 4547 | 100 | T | F | if ($more) |
| 4569 | 100 | T | F | unless $col =~ /$SAFE_QUALIFIED/ |
| 4572 | 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 =~ /[%_]/) { } |
| 4575 | 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/) { } |
| 4576 | 100 | T | F | $op eq '-in' ? : |
| 4590 | 100 | T | F | if (not defined $operand) { } |
| 4637 | 100 | T | F | if (delete $params->{'join'}) |
| 4642 | 100 | T | F | unless $_ eq "-or" |
| 100 | T | F | if (&any(sub {
$_ eq "-and" unless $_ eq "-or";
}
, keys %{$params;})) |
| 4650 | 100 | T | F | if (@cols) { } |
| 4657 | 100 | T | F | unless ($self->_match_criterion($$row{$col}, $$params{$col}, $col)) |
| 4662 | 100 | T | F | if $match |
| 4689 | 100 | T | F | if $pattern eq "%" |
| 4697 | 100 | T | F | if index($lc_pat, "%") == -1 and index($lc_pat, "_") == -1 |
| 4702 | 100 | T | F | if (index($lc_pat, "_") == -1) |
| 4707 | 100 | T | F | if ($first_pct == 0 and $last_pct == 0) |
| 4715 | 100 | T | F | if ($last_pct == $pat_len - 1 and $first_pct == $pat_len - 1) |
| 4724 | 100 | T | F | if ($first_pct == 0 and $last_pct == $pat_len - 1 and $pat_len >= 3) |
| 4726 | 100 | T | F | if (index($needle, "%") == -1) |
| 4745 | 100 | T | F | if ($pc eq '%') { } |
| 4748 | 100 | T | F | $$prev[$j] || $$curr[$j - 1] ? : |
| 4752 | 100 | T | F | $$prev[$j - 1] && ($pc eq '_' || $pc eq substr($lc_str, $j - 1, 1)) ? : |
| 4770 | 100 | T | F | $col && $$self{'_schema'} ? : |
| 4771 | 100 | T | F | unless $t eq "INTEGER" |
| 4774 | 100 | T | F | if (ref $crit_val eq "HASH") |
| 4777 | 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 '<=') { } |
| 4781 | 100 | T | F | $numeric ? : |
| 100 | T | F | unless defined $row_val and $numeric ? grep({$row_val == $_;} @{$operand;}) : grep({$row_val eq $_;} @{$operand;}) |
| 4786 | 100 | T | F | $numeric ? : |
| 100 | T | F | if defined $row_val and $numeric ? grep({$row_val == $_;} @{$operand;}) : grep({$row_val eq $_;} @{$operand;}) |
| 4788 | 100 | T | F | unless defined $row_val and $row_val >= $$operand[0] and $row_val <= $$operand[1] |
| 4790 | 100 | T | F | unless defined $row_val |
| 4791 | 100 | T | F | unless _like_match($row_val, $operand) |
| 4793 | 100 | T | F | unless defined $row_val |
| 4794 | 100 | T | F | if _like_match($row_val, $operand) |
| 4796 | 100 | T | F | if (not defined $operand) { } |
| 100 | T | F | elsif ($numeric) { } |
| 4797 | 100 | T | F | unless defined $row_val |
| 4799 | 100 | T | F | unless defined $row_val and $row_val != $operand |
| 4801 | 100 | T | F | unless defined $row_val and $row_val ne $operand |
| 4804 | 100 | T | F | unless defined $row_val and $row_val > $operand |
| 4806 | 100 | T | F | unless defined $row_val and $row_val < $operand |
| 4808 | 100 | T | F | unless defined $row_val and $row_val >= $operand |
| 4810 | 100 | T | F | unless defined $row_val and $row_val <= $operand |
| 4816 | 100 | T | F | $numeric ? : |
| 100 | T | F | !(defined $row_val && defined $crit_val) ? : |
| 100 | T | F | !(defined $row_val || defined $crit_val) ? : |
| 4831 | 100 | T | F | if ($$params{'table'}) { } |
| 4833 | 100 | T | F | unless $table =~ /$SAFE_QUALIFIED/ |
| 4846 | 100 | T | F | unless $$self{$table} or $$self{"data"} or $$self{"berkeley"} |
| 4859 | 100 | T | F | if (my $dbh = $$self{$table}) |
| 4874 | 100 | T | F | unless do {
BEGIN {
$^H{'autodie::Scope::GuardStack/guard7'} = 'autodie::Scope::Guard=CODE(0x55d3c7f117e0)';
$^H{'no Fatal'} = 'HASH(0x55d3c7bc2e28)';
}
open $fh, "<", $file
} |
| 4880 | 50 | T | F | if ($is_db) |
| 4886 | 0 | T | F | if (tie %bdb, "DB_File", $file, 0, 420, $DB_File::DB_HASH) |
| 4901 | 100 | T | F | unless &Database::Abstraction::read($fh, \my $buf, 4) == 4 |
| 4903 | 100 | T | F | if $magic{unpack "N", $buf} or $magic{unpack "V", $buf} |
| 4906 | 50 | T | F | unless &Database::Abstraction::seek($fh, 12, 0) |
| 4907 | 100 | T | F | unless &Database::Abstraction::read($fh, \$buf, 4) |
| 4923 | 100 | T | F | if $bare =~ /\A(?:localhost|127\.0\.0\.1|::1)\z/i |
| 4928 | 100 | T | F | if $lc_bare eq $me |
| 4944 | 100 | T | F | unless do {
BEGIN {
$^H{'autodie::Scope::GuardStack/guard8'} = 'autodie::Scope::Guard=CODE(0x55d3c7f22070)';
$^H{'no Fatal'} = 'HASH(0x55d3c7f22010)';
}
open $fh, "<", $file
} |
| 4948 | 100 | T | F | unless defined $n and $n == 4 |
| 4963 | 50 | T | F | if (scalar @messages and my $logger = $$self{"logger"}) |