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