The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

cmpthese( -2, { ($redis_cfg ? (si_insert_redis => sub { my $idx = Algorithm::SpatialIndex->new(@si_opt_redis); $idx->insert(@$_) for @items; }):()), ($use_median_qtree ? (si_insert_mqt => sub { my $idx = Algorithm::SpatialIndex->new(@si_opt_m); $idx->insert(@$_) for @items; }):()), si_insert => sub { my $idx = Algorithm::SpatialIndex->new(@si_opt); $idx->insert(@$_) for @items; }, qt_insert => sub { my $qt = Algorithm::QuadTree->new(@qt_opt); $qt->add(@$_, @{$_}[1,2]) for @items; }, } );