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};