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