use t::lib::TestBuilder;
use Koha::Database;
use Time::HiRes qw(gettimeofday tv_interval);

my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;

my $builder = t::lib::TestBuilder->new;
my $item = $builder->build_sample_item();

my $t0 = [gettimeofday];
my $count = 1000;
while($count--) {
    for my $col (@{$item->_columns}) {
        $item->$col;
    }
}
my $elapsed = tv_interval($t0);
print '$item->$col: ' . $elapsed * 1000 . " ms\n";


$t0 = [gettimeofday];
$count = 1000;
while($count--) {
    for my $col (@{$item->_columns}) {
        $item->_result->get_column($col);
    }
}
$elapsed = tv_interval($t0);
print 'item->_result->get_column($col): ' . $elapsed * 1000 . " ms\n";

$schema->storage->txn_rollback;
