$self->throw_exception ('Unable to determine relationship name for condition resolution');
}
- $cond = $cond->(
- $for,
- ref $for ? 'me' : $as,
- $self,
- $rel,
- );
+ return $cond->(ref $for ? $as : $for,
+ ref $for ? 'me' : $as,
+ $self,
+ $rel,
+ ref $for ? $for : undef);
} elsif (ref $cond eq 'HASH') {
my %ret;