use strict;
use warnings;
+use Sub::Name ();
+use Class::Inspector ();
sub register_relationship {
my ($class, $rel, $info) = @_;
my ($class, $rel, $acc_type) = @_;
my %meth;
if ($acc_type eq 'single') {
+ my $rel_info = $class->relationship_info($rel);
$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_info->{cond}, $rel, $self
+ );
+ if ($rel_info->{attrs}->{undef_on_null_fk}){
+ return unless ref($cond) eq 'HASH';
+ return if grep { not defined } values %$cond;
+ }
my $val = $self->find_related($rel, {}, {});
return unless $val;
return $self->{_relationship_data}{$rel} = $val;
no strict 'refs';
no warnings 'redefine';
foreach my $meth (keys %meth) {
- *{"${class}::${meth}"} = $meth{$meth};
+ my $name = join '::', $class, $meth;
+ *$name = Sub::Name::subname($name, $meth{$meth});
}
}
}