gistfile1.txt

package MyProj::Data::DB;

use strict;
use warnings;
use utf8;
use DBIx::Sunny::Declare;
# export new select* query* master* slave*..

select_row 'member',
    id => { isa => 'Int', .. },
    "SELECT * FROM member WHERE id = %(id)d";

query 'create_member',
    user_id => { isa => 'Str' },
    ...
    "INSERT INTO member (user_id, name) VALUES (%(user_id)s, %(name)s)";

1;

package main;

my $db = MyProj::Data::DB->new(
    master => [..],
    slave => [..]
);

my $member = $db->member( user_id =>368 );

$db->create_member(
    user_id => 'kazeburo',
    name => 'Masahiro Nagano'
);