use strict;
use warnings;
use Sub::Name ();
-use Class::Inspector ();
+
+our %_pod_inherit_config =
+ (
+ class_map => { 'DBIx::Class::Relationship::Accessor' => 'DBIx::Class::Relationship' }
+ );
sub register_relationship {
my ($class, $rel, $info) = @_;
return $self->{_relationship_data}{$rel};
} else {
my $cond = $self->result_source->_resolve_condition(
- $rel_info->{cond}, $rel, $self
+ $rel_info->{cond}, $rel, $self, $rel
);
if ($rel_info->{attrs}->{undef_on_null_fk}){
return undef unless ref($cond) eq 'HASH';