use strict;
use warnings;
use lib 'lib';
use lib 't/lib';

use TestDBH;
use TestEnv;
use Person;
use Benchmark qw(cmpthese);

sub bench_insert {
    my $i = 0;

    TestEnv->prepare_table('person');

    cmpthese(
        30_000,
        {
            'create' => sub {
                Person->new(name => 'name' . $i++)->create;
            },
            'DBI' => sub {
                my $sth = TestDBH->dbh->prepare('INSERT INTO person (name) VALUES (?)');
                $sth->execute('name' . $i++);
              }
        }
    );
}

bench_insert();