primary keyじゃない一件だけのデータをとりたかったので、single() つけた。 sub single { my ( $self, $terms, $options ) = @_; my $res = $self->search( $terms, $options ); return $res->next; }

ObjectDriverを使って、対象のカラム一覧を取る方法なんだけど、Iterator,ResultSetから取る方法が見当たらなかったので、しかたなく、BaseObject側から取る。流れ firstで１列目のレコードとる。 coloumn_namesで一覧をとる prevで元にもどす。 ループまわ…

なんとなくBaseObjectに関数を追加して、 SQL::Abstract::Limitを使えるようにしてみた。適当な感じですが。 生sql + bind から簡単に、Iteratorを作成できる関数とかが欲しいなぁ。ないかなぁ。 sub search_abstract { my ( $self, $where , $order , $limi…