r24740@martha (orig r5230): groditi | 2008-12-09 20:28:10 -0500
fix for bug. all tests seem to pass, we still need a new test and more research
my ($class, $rel, $acc_type) = @_;
my %meth;
if ($acc_type eq 'single') {
+ my $rel_cond = $class->relationship_info($rel)->{cond};
$meth{$rel} = sub {
my $self = shift;
if (@_) {
} elsif (exists $self->{_relationship_data}{$rel}) {
return $self->{_relationship_data}{$rel};
} else {
+ my $cond = $self->result_source->resolve_condition(
+ $rel_cond, $rel, $self
+ );
+ return if grep { not defined } values %$cond;
my $val = $self->find_related($rel, {}, {});
return unless $val;
return $self->{_relationship_data}{$rel} = $val;