Branch Coverage

File:blib/lib/Database/Join.pm
Coverage:96.4%

line%coveragebranch
769100TFunless @{$p->{'databases'};}
784100TFunless &blessed($p->{'databases'}[$i]) and $p->{'databases'}[$i]->can("selectall_arrayref") and $p->{'databases'}[$i]->can("columns")
832100TFif (my $bc = $p->{'base_criteria'})
835100TFunless %{$partitioned->[$i];}
846100TFif (my $log = $self->{'_logger'})
851100TFif (my $rc = $p->{'remove_columns'})
1518100TFwantarray ? :
1650100TFunless $self->{'_backend'} eq "array"
1720100TFunless ref $cb eq "CODE"
1801100TFif $self->{'_backend'} eq "array"
1806100TFunless $self->_cache_fresh
1813100TFunless ($cache->{'_dj_built'})
1867100TFif $self->{'_col_cache'}
1879100TFif $local_jc and $col eq $local_jc and $col ne $join_col
1882100TFif $seen{$pub}++
1883100TFif $self->{'_removed_cols'}{$pub}
1940100TFif $self->{'_schema_cache'}
1951100TFif (not $skip_jc || %{$renames;}) { }
1956100TFif $skip_jc and $col eq $local_jc
1963100TFif %{$self->{'_removed_cols'};}
2018100TFif defined $ts
2077100TFunless defined $logger
208150TFunless &Scalar::Util::blessed($logger)
2232100TFif (@args and not ref $args[0]) { }
50TFelsif (@args) { }
2234100TFunless defined $args[0] and grep {$args[0] eq $_;} @_ADD_DB_KEYS
2241100TF@args ? :
2257100TFunless &blessed($db) and $db->can("selectall_arrayref") and $db->can("columns")
2264100TFif $p->{'join_column'}
2266100TFif $p->{'filter'}
2272100TFunless $col_presence{$local_jc}
2286100TFif $local_jc ne $self->{'_join_col'} and $col eq $local_jc
2289100TFif (defined $prefix and exists $self->{'_col_db'}{$col} and $col ne $self->{'_join_col'}) { }
2298100TFif $self->{'_removed_cols'}{$pub}
2310100TFif (my $old = delete $self->{'_sqlite_cache'})
231250TFif $old->{'dbh'}
2316100TFif (my $log = $self->{'_logger'})
2321100TFif (my $rc = $p->{'remove_columns'})
2404100TFunless defined $col and length $col
2409100TFif $col eq $self->{'_join_col'}
2554100TFif substr($col, 0, 1) eq "_"
2558100TFunless defined $db_idx
2563100TFif (%{$self->{'_join_map'};} or %{$self->{'_filters'};})
2572100TFif wantarray
2573100TF@{$rows;} ? :
2585100TFif (my $cache = delete $self->{'_sqlite_cache'})
258750TFif $cache->{'dbh'}
2607100TFunless @args
2609100TFif @args == 1 and not ref $args[0]
2649100TFif ref $local_jc
2653100TFunless $db_cols[$i]{$local_jc}
2657100TF$i > 0 ? :
2664100TFif defined $prefix and ref $prefix
2669100TFif $local_jc ne $join_col and $col eq $local_jc
2671100TFif (defined $prefix and exists $col_db{$col} and $col ne $join_col) { }
2716100TFif $local_jc ne $join_col and $orig_col eq $local_jc
2721100TFif $orig_col eq $join_col
2725100TFif exists $renames->{$orig_col}
2730100TFref $entry eq 'HASH' ? :
2732100TFunless length $type_str
2734100TFif (exists $seen{$orig_col}) { }
2736100TFif ($prev->{'type'} ne $type_str)
2769100TFif ($col eq $join_col) { }
50TFelsif ($col eq 'join') { }
100TFelsif (defined(my $idx = $self->{'_col_db'}{$col})) { }
2776100TFref $val eq 'HASH' ? :
2818100TFunless defined $key
2833100TFif $backend eq "array"
2874100TFif (defined $limit)
2875100TFif (not $limit =~ /^\d+\z/a or $limit < 1)
2883100TFif (defined $offset)
2884100TFunless ($offset =~ /^\d+\z/a)
2900100TFif defined $limit or defined $offset
2914100TFunless %{$base;}
2938100TFif not %{$indexed[0];} and $join_type ne "outer" and not exists $per_db->[0]{$local_jc_0_early} and not $sec_has_criteria
2960100TFif ($self->{'_parallel'} and $n > 2) { }
2961100TFeval {         do {         require threads; 1 } } ? :
2962100TFif ($HAS_THREADS) { }
2982100TFif defined $key
298750TFif $t
2997100TFif (defined $i and ref $idx eq "HASH")
300750TFif $done{$i}
3033100TFexists $crit->{$local_jc} ? :
3049100TFif ($had_criteria[$i] or $join_type eq 'inner') { }
100TFelsif ($join_type eq 'outer') { }
3054100TFunless exists $indexed[$i]{$k}
3073100TF$sec_local_jc[$i] && $sec_local_jc[$i] ne $join_col ? :
3090100TFif (defined $sort_by)
3091100TFref $sort_by eq 'ARRAY' ? :
3093100TFunless ($req_dir eq "ASC" or $req_dir eq "DESC")
3097100TFif ($req_col ne $join_col and not exists $self->{'_col_db'}{$req_col}) { }
3113100TF$ob_override ? :
3122100TFunless $sec_arr and @{$sec_arr;}
3132100TFif ($sec_rename[$i]) { }
3136100TFif ($k eq $local_jc) { }
100TFelsif (my $pub = $renames->{$k}) { }
3148100TFif (my $pub = $renames->{$k}) { }
3158100TFif @{$removed;}
3171100TFif ($ob_override) { }
100TFelsif ($ob_dir eq 'DESC') { }
3176100TFif ($ob_dir eq 'DESC') { }
3190100TFif (defined $offset and $offset > 0)
3193100TFif (defined $limit and $limit < scalar @result)
3212100TFif ($cache->{'n'} // 0) != $n
3215100TFunless do {         local $@; eval {         do {         $cache->{'dbh'}{'Active'} } } }
322550TFunless defined $current_ts
3226100TFif $current_ts != $cached_ts
3764100TFunless $criteria and %{$criteria;}
3769100TFref $criteria->{$_} eq 'HASH' ? :
3782100TFunless $filters and %{$filters;}