X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSetManager.pm;h=c2af0f23e68b4ad727eff17ef9a99c1c12b1abd9;hb=cdab6a28aacaac6f57efc024db5f8b3f37b84f30;hp=c8e3bd6a0854379d515329ff31a19acea667313c;hpb=e8861f71b6876901a05c98452b8bce5d84ca6420;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/ResultSetManager.pm b/lib/DBIx/Class/ResultSetManager.pm index c8e3bd6..c2af0f2 100644 --- a/lib/DBIx/Class/ResultSetManager.pm +++ b/lib/DBIx/Class/ResultSetManager.pm @@ -35,7 +35,7 @@ sub _register_attributes { no strict 'refs'; my $resultset_class = $self->_setup_resultset_class; *{"$resultset_class\::$meth"} = $self->can($meth); - undef *{"$self\::$meth"}; + delete ${"${self}::"}{$meth}; } } } @@ -76,7 +76,7 @@ __END__ __PACKAGE__->load_resultset_components(qw/AlwaysRS/); # will be removed from the table class and inserted into a table-specific resultset class - sub foo : resultset { ... } + sub foo : ResultSet { ... } =head1 DESCRIPTION