use strict;
use warnings;
use base 'DBIx::Class';
+use Sub::Name ();
use Class::Inspector;
warn "DBIx::Class::ResultSetManager never left experimental status and
if ($attrs->[0] eq 'ResultSet') {
no strict 'refs';
my $resultset_class = $self->_setup_resultset_class;
- *{"$resultset_class\::$meth"} = $self->can($meth);
+ my $name = join '::',$resultset_class, $meth;
+ *$name = Sub::Name::subname $name, $self->can($meth);
delete ${"${self}::"}{$meth};
}
}
}
}
+=head1 FURTHER QUESTIONS?
+
+Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
+
+=head1 COPYRIGHT AND LICENSE
+
+This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
+by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
+redistribute it and/or modify it under the same terms as the
+L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.
+
+=cut
+
1;