use base 'DBIx::Class::ResultSet';
-use Debbugs::DB::Util qw(select_one);
-
-
sub insert_suite_src_ver_association {
my ($self,$suite_id,$src_ver_id) = @_;
- return $self->result_source->schema->storage->
- dbh_do(sub {
- my ($s,$dbh,$suite_id,$src_ver_id) = @_;
- return select_one($dbh,<<'SQL',$suite_id,$src_ver_id);
+ return $self->result_source->schema->
+ select_one(<<'SQL',$suite_id,$src_ver_id);
INSERT INTO src_associations (suite,source)
VALUES (?,?) ON CONFLICT (suite,source) DO
UPDATE SET modified = NOW()
RETURNING id;
SQL
- },
- $suite_id,$src_ver_id
- );
}
1;