dbic stash example

ResultSet.pm

package App::Schema::ResultSet;

use strict;
use warnings;

use parent 'DBIx::Class::ResultSet';

__PACKAGE__->mk_group_accessors(inherited => qw/
    stash
/);
__PACKAGE__->stash({});

#--------------------------------------------------------------------------#
# search_rs
#--------------------------------------------------------------------------#

## overload search to pass stash down the chain
sub search_rs {
    my ($self, @params) = @_;

    my $next = $self->next::method(@params);

    ## pass stash down from original caller to next
    $next->stash($self->stash);

    return $next;
}