sub table {
my ($self,@rest) = @_;
- $self->next::method(@rest);
- $self->_register_attributes;
- $self->_register_resultset_class;
+ my $ret = $self->next::method(@rest);
+ if (@rest) {
+ $self->_register_attributes;
+ $self->_register_resultset_class;
+ }
+ return $ret;
}
sub load_resultset_components {
__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