use base 'DBIx::Class::ResultSet';
-use Debbugs::DB::Util qw(select_one);
-
-
=over
=item get_maintainers
my $ci =
$self->result_source->schema->resultset('Correspondent')->
get_correspondent_id($maint);
- return $self->result_source->schema->storage->
- dbh_do(sub {
- my ($s,$dbh,$maint,$ci) = @_;
- return select_one($dbh,<<'SQL',$maint,$ci,$maint);
+ return $self->result_source->schema->
+ select_one(<<'SQL',$maint,$ci,$maint);
WITH ins AS (
INSERT INTO maintainer (name,correspondent) VALUES (?,?)
ON CONFLICT (name) DO NOTHING RETURNING id
SELECT id FROM maintainer WHERE name = ?
LIMIT 1;
SQL
- },
- $maint,$ci
- );
}
=back