benchmark script

gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings;
use Carp;
use lib 'lib';
use DBI;
use Data::Dumper;
use Benchmark qw(:all);
use DBIx::InsertMultiTranslator qw/intercept/;

my $dbh = DBI->connect('DBI:mysql:hoge:localhost', 'root', '', {'RaiseError' =>1} );
my $sth = $dbh->prepare(qq{INSERT INTO test (id) VALUES (?)});

my $count = 100;
my $r = timethese($count, {'for' => '&test1;', 'multi' => '&test2;'});
cmpthese $r;

sub test1 {
  for (my $i = 0; $i < 100; $i++) {
    $sth->execute($i);
  }
}

sub test2 {
  intercept {
    for (my $i = 0; $i < 100; $i++) {
      $sth->execute($i);
    }
  };
}