From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 8 Mar 2017 03:02:08 +0000 (-0800)
Subject: load resultset helper; preload 2000 bugs at a time
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3ede10e4dad50b6084b96b3a9a4e474b28510814;p=debbugs.git

load resultset helper; preload 2000 bugs at a time
---

diff --git a/Debbugs/DB/ResultSet/Bug.pm b/Debbugs/DB/ResultSet/Bug.pm
index 5dbd5aa..503fe7e 100644
--- a/Debbugs/DB/ResultSet/Bug.pm
+++ b/Debbugs/DB/ResultSet/Bug.pm
@@ -23,6 +23,8 @@ use strict;
 use warnings;
 
 use base 'DBIx::Class::ResultSet';
+__PACKAGE__->load_components('Helper::ResultSet');
+
 use Debbugs::DB::Util qw(select_one);
 
 use List::MoreUtils qw(natatime);
@@ -44,7 +46,7 @@ for first time.
 sub quick_insert_bugs {
     my ($self,@bugs) = @_;
 
-    my $it = natatime 300, @bugs;
+    my $it = natatime 2000, @bugs;
 
     while (my @b = $it->()) {
 	$self->result_source->schema->