Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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'
- );
Add Comment
Please, Sign In to add comment