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';
27 use List::AllUtils qw(natatime);
32 =item quick_insert_bugs
34 $s->result_set('Bug')->quick_insert_bugs(@bugs);
36 Quickly insert a set of bugs (without any useful information, like subject,
37 etc). This should probably only be called when inserting bugs in the database
43 sub quick_insert_bugs {
44 my ($self,@bugs) = @_;
46 my $it = natatime 2000, @bugs;
48 while (my @b = $it->()) {
49 $self->result_source->schema->
52 $self->quick_insert_bug($b);
58 =item quick_insert_bug
60 $s->result_set('Bug')->quick_insert_bug($bug);
62 Quickly insert a single bug (called by quick_insert_bugs). You should probably
63 actually be calling C<Debbugs::DB::Load::load_bug> instead of this function.
67 sub quick_insert_bug {
69 return $self->result_source->schema->
70 select_one(<<'SQL',$bug);
71 INSERT INTO bug (id,subject,severity) VALUES (?,'',1)
72 ON CONFLICT (id) DO NOTHING RETURNING id;