Branch Coverage

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

line%coveragebranch
452100TFunless @{$p->{'databases'};}
466100TFunless &blessed($p->{'databases'}[$i]) and $p->{'databases'}[$i]->isa("Database::Abstraction")
503100TFif (my $log = $self->{'_logger'})
508100TFif (my $rc = $p->{'remove_columns'})
757100TFwantarray ? :
884100TFif $self->{'_col_cache'}
893100TFif $seen{$col}++
894100TFif $self->{'_removed_cols'}{$col}
897100TFif $local_jc and $col eq $local_jc and $col ne $join_col
949100TFif $self->{'_schema_cache'}
958100TFif ($local_jc and $local_jc ne $self->{'_join_col'}) { }
960100TFunless $col eq $local_jc
968100TFif %{$self->{'_removed_cols'};}
1052100TFunless defined $logger
1190100TFif (@args and not ref $args[0]) { }
50TFelsif (@args) { }
1192100TFunless grep {$args[0] eq $_;} @_ADD_DB_KEYS
1199100TF@args ? :
1211100TFunless &blessed($db) and $db->isa("Database::Abstraction")
1216100TFif $p->{'join_column'}
1217100TFif $p->{'filter'}
1223100TFunless $col_presence{$local_jc}
123250TFif $self->{'_removed_cols'}{$col}
1233100TFif $local_jc ne $self->{'_join_col'} and $col eq $local_jc
1242100TFif (my $log = $self->{'_logger'})
1247100TFif (my $rc = $p->{'remove_columns'})
1329100TFif defined $col and $col eq $self->{'_join_col'}
1331100TFif (defined $col and length $col)
145650TFif $col eq "DESTROY"
1460100TFif $col =~ /^_/
1464100TFunless defined $db_idx
1469100TFif (%{$self->{'_join_map'};} or %{$self->{'_filters'};})
1475100TFif wantarray
1476100TF@{$rows;} ? :
1499100TFunless @args
1500100TFif @args == 1 and not ref $args[0]
1535100TFif ref $local_jc
1539100TFunless $db_cols[$i]{$local_jc}
1543100TFif $local_jc ne $join_col and $col eq $local_jc
1571100TFif ($col eq $join_col) { }
100TFelsif (defined(my $idx = $self->{'_col_db'}{$col})) { }
1578100TFref $val eq 'HASH' ? :
1610100TFunless defined $key
1651100TFunless %{$base;}
1676100TFif ($had_criteria[$i] or $join_type eq 'inner') { }
100TFelsif ($join_type eq 'outer') { }
1681100TFunless exists $indexed[$i]{$k}
1707100TFunless $sec_arr and @{$sec_arr;}
1719100TFif ($rename and $k eq $local_jc) { }
1727100TFif @removed
1747100TFif (exists $merged{$col} and ref $merged{$col} eq 'HASH' and ref $extra->{$col} eq 'HASH') { }
1766100TFif ($i18n and $i18n->can("translate"))
1773100TF@args ? :