1 # This module is part of debbugs, and is released
2 # under the terms of the GPL version 2, or any later version. See the
3 # file README and COPYING for more information.
4 # Copyright 2017 by Don Armstrong <don@donarmstrong.com>.
6 package Debbugs::DB::ResultSet::Bug;
10 Debbugs::DB::ResultSet::Bug - Bug result set operations
25 use base 'DBIx::Class::ResultSet';
26 use Debbugs::DB::Util qw(select_one);
28 use List::MoreUtils qw(natatime);
33 =item quick_insert_bugs
35 $s->result_set('Bug')->quick_insert_bugs(@bugs);
37 Quickly insert a set of bugs (without any useful information, like subject,
38 etc). This should probably only be called when inserting bugs in the database
44 sub quick_insert_bugs {
45 my ($self,@bugs) = @_;
47 my $it = natatime 300, @bugs;
49 while (my @b = $it->()) {
50 $self->result_source->schema->
53 $self->quick_insert_bug($b);
59 =item quick_insert_bug
61 $s->result_set('Bug')->quick_insert_bug($bug);
63 Quickly insert a single bug (called by quick_insert_bugs). You should probably
64 actually be calling C<Debbugs::DB::Load::load_bug> instead of this function.
68 sub quick_insert_bug {
70 return $self->result_source->schema->storage->
73 select_one($dbh,<<'SQL',$b);
74 INSERT INTO bug (id,subject,severity) VALUES (?,'',1)
75 ON CONFLICT (id) DO NOTHING RETURNING id;