#! perl -slw
use strict;
use Benchmark qw[ cmpthese ];
use Dummy1;
use Dummy2;
use Dummy3;
use Dummy4;
use Dummy5;
use Dummy6;

our $N ||= 100;
our @data = 1 .. $N;

cmpthese -3, {
	subs=> q[
		my @modified = sumem( reversem( @data ) );
	],
	OO1 => q[
		my $obj = new Dummy2;
		my @modified = $obj->sumem( $obj->reversem( @data ) );
	],
	OO2 => q[
		my $obj = new Dummy3( @data );
		$obj->reversem;
		my @modified = $obj->sumem;
	],
	OO3 => q[
		my $obj = new Dummy4( @data );
		$obj->reversem;
		my @modified = $obj->sumem;
	],
	OO4 => q[
		my $obj = new Dummy5( @data );
		$obj->reversem;
		my @modified = $obj->sumem;
	],
	OO5 => q[
		my $obj = new Dummy6( @data );
		$obj->reversem;
		my @modified = $obj->sumem;
	],
};