X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSetManager.pm;h=d2746e58fdc5b4daf463108baad082d4e51260b8;hb=f50497ab497520c6f79154cdff283921c4d2cb9e;hp=721c84c7fd59d6bc1f6b4069bae4e5dc17783cf5;hpb=748ab0dca771812bd2c733366fe91c561cd4afbf;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/ResultSetManager.pm b/lib/DBIx/Class/ResultSetManager.pm
index 721c84c..d2746e5 100644
--- a/lib/DBIx/Class/ResultSetManager.pm
+++ b/lib/DBIx/Class/ResultSetManager.pm
@@ -2,6 +2,7 @@ package DBIx::Class::ResultSetManager;
 use strict;
 use warnings;
 use base 'DBIx::Class';
+use Sub::Name ();
 use Class::Inspector;
 
 warn "DBIx::Class::ResultSetManager never left experimental status and
@@ -58,7 +59,8 @@ sub _register_attributes {
         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};
         }
     }