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};
}
}