Perl-DBIx-Skinny/編集中の変更点

追加された行はこの色です。
削除された行はこの色です。
Perl-DBIx-Skinny/編集中へ行く。
Perl-DBIx-Skinny/編集中の差分を削除
* DBIx::Skinny [#c0dac0e0]

** スキーマクラス [#xadc86df]
 package MyDB;
 use DBIx::Skinny setup =>
  { dsn => 'dbi:Pg:dbname=test_db;host=localhost', username => 'scott', password => '' };
 
 package MyDB::Schema;
 use DBIx::Skinny::Schema;
 
 install_table users => schema {
    pk 'id';
    columns qw/id name birth_on group_id/;
 };
 
 install_table groups => schema {
    pk 'id';
    columns qw/id name/;
 };

** 普通にSELECT [#j501b86c]
 use MyDB;
 use Perl6::Say;
 my $db = MyDB->new;
 my $row = $db->search('users', {name => 'taro'})->first;
 say $row->id;
 say $row->name;

** SQLを手で書いてSELECT [#p426b4d2]
 use MyDB;
 use Perl6::Say;
 my $db = MyDB->new;
 my $row = $db->search_by_sql(
    "SELECT * FROM users WHERE name = ?",
    ['taro'],
    'users' # 結果セットオブジェクトの基準テーブルを指定
 )->first;
 say $row->id;
 say $row->name;

** JOINしてSELECT [#f3b9a9a9]
 use MyDB;
 use Perl6::Say;
 my $db = MyDB->new;
 my $rs = $db->resultset;
 $rs->add_select('*');
 $rs->add_select( 'users.id'    => 'user_id' );
 $rs->add_select( 'groups.id'   => 'group_id' );
 $rs->add_select( 'users.name'  => 'user_name' );
 $rs->add_select( 'groups.name' => 'group_name' );
 $rs->add_join(
    users => [
        {
            table     => 'groups',
            condition => 'users.id = groups.id',
        }
    ]
 );
 $rs->add_where('users.name' => 'taro');
 my $itr = $rs->retrieve('users'); # 結果セットオブジェクトの基準テーブルを指定
 while (my $row = $itr->next) {
    say $row->user_id;
    say $row->user_name;
    say $row->group_id;
    say $row->group_name;
 }

** SQLとバインドパラメータを表示 [#k4ac0629]
 say $rs->as_sql;
 say Dumper $rs->bind;

** Rowクラスをinflateする [#z3f8bd64]
 package MyDB::Row::Users;
 use base 'DBIx::Skinny::Row';
 sub my_name_is {
    my $self = shift;
    return 'My name is ' . $self->name;
 }

 my $row = $db->search('users', {name => 'taro'})->first;
 say $row->my_name_is;