どんぞこ日誌

* [Perl] DBIx::Skinny関連モジュール

　　先日書いたDBIx::Skinny関連のモジュールは3つとも本体に取り込んでいただけました。これらの機能はもうDBIx::Skinny（0.0705以降）だけで実現できます。昨日入れ違いでDBIx-Skinny-Profiler-ProfileLoggerをCPANにアップしたので、後で削除の予定。

　で、DBIx::Skinny::DBICTicはちょこちょこアップデートしていて、joinの値にハッシュリファレンスを渡すことでリレーションのリレーションにも対応。

 my $rs = $db->result_dbictic( 'user',
   { 'user.id' => 123 },
   {
     'join'    => [ 'status', { 'books' => 'author' } ],
     '+select' => [ 'status.flag', 'author.name' ],
     '+as'     => [ 'status', 'author_name' ],
   }
 );

　このモジュールは本体のテーブルのエイリアスに'me'をつけたりしませんのでご安心ください。