X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FRelationship%2FAccessor.pm;h=03700f4101c8b9e1f1f86e8c561ba01f616da297;hb=v0.08123;hp=065cf69442ed4406ae00cc3ab468c41cee9c1add;hpb=e0d8aec0dea8582d453b56f238d1bbae3622b95f;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Relationship/Accessor.pm b/lib/DBIx/Class/Relationship/Accessor.pm index 065cf69..03700f4 100644 --- a/lib/DBIx/Class/Relationship/Accessor.pm +++ b/lib/DBIx/Class/Relationship/Accessor.pm @@ -4,7 +4,11 @@ package # hide from PAUSE 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) = @_; @@ -27,7 +31,7 @@ sub add_relationship_accessor { } elsif (exists $self->{_relationship_data}{$rel}) { return $self->{_relationship_data}{$rel}; } else { - my $cond = $self->result_source->resolve_condition( + my $cond = $self->result_source->_resolve_condition( $rel_info->{cond}, $rel, $self ); if ($rel_info->{attrs}->{undef_on_null_fk}){