DBIx-Lite-ResultSet-Role-Slave.pm

package DBIx::Lite::ResultSet::Role::Slave;
use strict;
use warnings;
use Role::Tiny;

around $_ => sub {
    my ($ORIG, $self, @args) = @_;
    local $self->{dbix_lite} = $self->{dbix_lite}->master;
    return $self->$ORIG(@args);
} for qw(
    insert
    delete
    update
);

1;

DBIx-Lite-Role-Slave.pm

package DBIx::Lite::Role::Slave;
use strict;
use warnings;
use Role::Tiny;

requires 'master';

around table => sub {
    my ($ORIG, $self, @args) = @_;

    my $table = $self->$ORIG(@args);
    return Role::Tiny->apply_roles_to_object(
        $table, 'DBIx::Lite::ResultSet::Role::Slave',
    );
};

1;