X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FRelationship%2FAccessor.pm;h=174aa232e2592649b6ab212fc9f31f07ee2e94d7;hb=524fc24c685553411256485016ce2466cf914ab0;hp=eb03a3d73291143ebfcf26ad0b75e59950f4f64e;hpb=65d08642518d29e1a0fa5a426a559558ec82a1a9;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Relationship/Accessor.pm b/lib/DBIx/Class/Relationship/Accessor.pm index eb03a3d..174aa23 100644 --- a/lib/DBIx/Class/Relationship/Accessor.pm +++ b/lib/DBIx/Class/Relationship/Accessor.pm @@ -4,9 +4,8 @@ package # hide from PAUSE use strict; use warnings; use Sub::Name (); -use Class::Inspector (); -our %_pod_inherit_config = +our %_pod_inherit_config = ( class_map => { 'DBIx::Class::Relationship::Accessor' => 'DBIx::Class::Relationship' } ); @@ -33,7 +32,7 @@ sub add_relationship_accessor { 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';