1package EventBench::ObjectMethod::Array; 2 3use strict; 4use warnings; 5use Benchmark ':hireswallclock'; 6 7sub new { 8 return bless({}, $_[0]); 9} 10 11sub receive_event { 12 my ($self, $arg1, $arg2) = @_; 13 our $sum; 14 15 $sum += $arg1 + $arg2; 16} 17 18return sub { 19 my (@testData) = @_; 20 my $test = EventBench::ObjectMethod::Array->new; 21 our $sum = 0; 22 my $bench; 23 24 $bench = timeit(1, sub { 25 26 foreach(@testData) { 27 $test->receive_event($_->[0], $_->[1]); 28 } 29 }); 30 31 return { bench => $bench, sum => $sum }; 32};