@@ -, +, @@ --- test-plugins-call.pl | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100755 test-plugins-call.pl --- a/test-plugins-call.pl +++ a/test-plugins-call.pl @@ -0,0 +1,24 @@ +#!/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; --