use base 'DBIx::Class::ResultSet';
-use Debbugs::DB::Util qw(select_one);
-
-
sub get_src_ver_id {
my ($self,$src_pkg_id,$src_ver,$maint_id) = @_;
- return $self->result_source->schema->storage->
- dbh_do(sub {
- my ($s,$dbh,$src_pkg_id,$src_ver,$maint_id) = @_;
- return select_one($dbh,<<'SQL',
+ return $self->result_source->schema->
+ select_one(<<'SQL',
INSERT INTO src_ver (src_pkg,ver,maintainer)
VALUES (?,?,?) ON CONFLICT (src_pkg,ver) DO
UPDATE SET maintainer = ?
RETURNING id;
SQL
- $src_pkg_id,$src_ver,
- $maint_id,$maint_id);
- },
- $src_pkg_id,$src_ver,$maint_id
- );
+ $src_pkg_id,$src_ver,
+ $maint_id,$maint_id);
}
1;