2006-10-30 DBIC->single() Catalyst DBIC Perl ちょっとはまりそうなのでメモ。 #これエラーにならないで、条件なしで1件取得する感じ。 $c->model('DBIC::Orz')->single( orz => 'orz' ); #これが正解 $c->model('DBIC::Orz')->single( { orz => 'orz'} ); 上記の場合、エラーになるようにしたいなぁ。