)
;
-#TEMP
- my $rel_rsrc;# = $self->related_source($args->{rel_name});
+ my $rel_rsrc = $self->related_source($args->{rel_name});
if (exists $args->{foreign_values}) {
-# TEMP
- $rel_rsrc ||= $self->related_source($args->{rel_name});
if (defined blessed $args->{foreign_values}) {
"The join-free condition returned for $exception_rel_id must be a hash reference"
) unless ref $jfc eq 'HASH';
-# TEMP
- $rel_rsrc ||= $self->related_source($args->{rel_name});
-
my ($joinfree_alias, $joinfree_source);
if (defined $args->{self_result_object}) {
$joinfree_alias = $args->{foreign_alias};
next if $col_eqs->{$lhs} eq UNRESOLVABLE_CONDITION;
-# TEMP
- $rel_rsrc ||= $self->related_source($args->{rel_name});
-
# there is no way to know who is right and who is left in a cref
# therefore a full blown resolution call, and figure out the
# direction a bit further below