1 package DBIx::Class::Relationship::ProxyMethods;
6 use base qw/Class::Data::Inheritable/;
9 my ($class, $rel, @rest) = @_;
10 my $ret = $class->NEXT::ACTUAL::add_relationship($rel => @rest);
11 if (my $proxy_list = $class->_relationships->{$rel}->{attrs}{proxy}) {
13 no warnings 'redefine';
14 foreach my $proxy (ref $proxy_list ? @$proxy_list : $proxy_list) {
15 *{"${class}::${proxy}"} =
18 my $val = $self->$rel;
19 if (@_ && !defined $val) {
20 $val = $self->create_related($rel, { $proxy => $_[0] });
23 return ($val ? $val->$proxy(@_) : undef);