From 3ede10e4dad50b6084b96b3a9a4e474b28510814 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Tue, 7 Mar 2017 19:02:08 -0800 Subject: [PATCH] load resultset helper; preload 2000 bugs at a time --- Debbugs/DB/ResultSet/Bug.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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-> -- 2.39.2