- my ($self,@args) = @_;
- return $self->result_source->schema->storage->
- dbh_do(sub {
- my ($s,$dbh,$bug,$suite,$arch,$status,$modified,$asof) = @_;
- select_one($dbh,<<'SQL',$bug,$suite,$arch,$status,$status);
+ my ($self,$bug,$suite,$arch,$status,$modified,$asof) = @_;
+ return $self->result_source->schema->
+ select_one(<<'SQL',$bug,$suite,$arch,$status,$status);