gistfile1.txt

#!/usr/bin/perl
use C4::Context;
use C4::Biblio;
use C4::Items;
use t::lib::Mocks;
use Time::HiRes qw(gettimeofday tv_interval);

t::lib::Mocks::mock_preference('item-level_itypes', '1');

my $itemnumbers = C4::Context->dbh->selectcol_arrayref(qq{SELECT itemnumber FROM items WHERE biblionumber = 2});
my $i = 20000;
my $t0 = [gettimeofday];
while($i--) {
    #foreach my $itemnumber (@{$itemnumbers}) {
    #    GetItem($itemnumber);
    #}
    C4::Items::GetItems($itemnumbers);
}
my $elapsed = tv_interval ( $t0, [gettimeofday]);
print "${elapsed}s\n";