- 

#!/usr/bin/perl

use strict;

use warnings;

use v5.10;

use Koha::Plugins;

use Time::HiRes qw(gettimeofday tv_interval);

sub run_x_times {

    my ($x) = @_;

    my $start = [gettimeofday];

    for (1..$x) {

        my @metadata = Koha::Plugins->call('get_metadata');

    }

    my $elapsed = tv_interval($start);

    say "$x call(s): Elapsed $elapsed seconds";

}

run_x_times 1;

run_x_times 10;

run_x_times 100;

run_x_times 1000;