use strict;
use warnings;
-
+use Sub::Name ();
use base qw/DBIx::Class/;
+our %_pod_inherit_config =
+ (
+ class_map => { 'DBIx::Class::Relationship::ProxyMethods' => 'DBIx::Class::Relationship' }
+ );
+
sub register_relationship {
my ($class, $rel, $info) = @_;
if (my $proxy_list = $info->{attrs}{proxy}) {
no strict 'refs';
no warnings 'redefine';
foreach my $proxy (@proxy) {
- *{"${class}::${proxy}"} =
+ my $name = join '::', $class, $proxy;
+ *$name = Sub::Name::subname $name,
sub {
my $self = shift;
my $val = $self->$rel;