1 package # hide from PAUSE
2 DBIx::Class::Relationship::ProxyMethods;
6 use base 'DBIx::Class';
7 use DBIx::Class::_Util 'quote_sub';
10 our %_pod_inherit_config =
12 class_map => { 'DBIx::Class::Relationship::ProxyMethods' => 'DBIx::Class::Relationship' }
15 sub register_relationship {
16 my ($class, $rel, $info) = @_;
17 if (my $proxy_args = $info->{attrs}{proxy}) {
18 $class->proxy_to_related($rel, $proxy_args);
20 $class->next::method($rel, $info);
23 sub proxy_to_related {
24 my ($class, $rel, $proxy_args) = @_;
25 my %proxy_map = $class->_build_proxy_map_from($proxy_args);
27 quote_sub "${class}::$_", sprintf( <<'EOC', $rel, $proxy_map{$_} )
29 my $relobj = $self->%1$s;
30 if (@_ && !defined $relobj) {
31 $relobj = $self->create_related( %1$s => { %2$s => $_[0] } );
34 $relobj ? $relobj->%2$s(@_) : undef;
39 sub _build_proxy_map_from {
40 my ( $class, $proxy_arg ) = @_;
41 my $ref = ref $proxy_arg;
46 elsif ($ref eq 'ARRAY') {
54 $class->throw_exception("Unable to process the 'proxy' argument $proxy_arg");
57 return ( $proxy_arg => $proxy_arg );