getmarcbiblioprof.pl

#!/usr/bin/perl
use C4::Context;
use C4::Biblio;
use t::lib::Mocks;

my $biblionumber = <biblionumber_with_items_goes_here>;
# Warm up caches to get a more fair benchmark
GetMarcBiblio({biblionumber => $biblionumber, embed_items => 1});

DB::enable_profile();
t::lib::Mocks::mock_preference('item-level_itypes', '1');
my $i = 200;
while($i--) {
    GetMarcBiblio({biblionumber => $biblionumber, embed_items => 1});
}