package MyTeng;
use parent 'Teng';

use Any::Moose;
with 'Teng::Role::Replicated';


my $teng = MyTeng->new([
  connect_info       => [...], # master db connect info
  slave_connect_info => [...], # slave db connect info
])

$teng->single(...);        # for slave db
$teng->insert(...);        # for master db

{
  my $scope = $teng->force_master_scope;
  $teng->search(...)->all; # for master db
  $scope->end;
  $teng->search(...)->all; # for slave db
}

{
  my $txn = $teng->txn_scope;
  $teng->search(...)->all; # for master db
  $teng->insert(...);      # for master db
  $txn->commit;
  $teng->search(...)->all; # for slave db
}