use strict;
use warnings;
use base 'DBIx::Class';
-use Sub::Name ();
use Package::Stash ();
+use DBIx::Class::_Util 'set_subname';
+use namespace::clean;
+
warn "DBIx::Class::ResultSetManager never left experimental status and
has now been DEPRECATED. This module will be deleted in 09000 so please
migrate any and all code using it to explicit resultset classes using either
=cut
-__PACKAGE__->mk_classdata($_)
- for qw/ base_resultset_class table_resultset_class_suffix /;
+__PACKAGE__->mk_group_accessors(inherited => qw(
+ base_resultset_class table_resultset_class_suffix
+));
__PACKAGE__->base_resultset_class('DBIx::Class::ResultSet');
__PACKAGE__->table_resultset_class_suffix('::_resultset');
no strict 'refs';
my $resultset_class = $self->_setup_resultset_class;
my $name = join '::',$resultset_class, $meth;
- *$name = Sub::Name::subname $name, $self->can($meth);
+ *$name = set_subname $name, $self->can($meth);
delete ${"${self}::"}{$meth};
}
}