1package TestSchema::ResultSet::Bloaty; 2use strict; 3use warnings; 4 5use parent 'TestSchema::ResultSet'; 6 7__PACKAGE__->load_components(qw{ 8 Helper::ResultSet::AutoRemoveColumns 9}); 10 11our @stuff; 12 13sub update { 14 my ($self, $rest) = @_; 15 16 push @stuff, $rest; 17 18 $self->next::method($rest); 19} 20 211; 22