#!/usr/bin/perl

use Benchmark 'cmpthese';

package Foo;

sub new
{
        my $class = shift;
        bless({@_}, $class);
}

sub foo
{
        my ($self, @stuff) = @_;

        return map { $_.$_ } @stuff;
}

sub foo_pipe
{
        my $self = shift;
        $self->foo(@_);
}

sub foo_my
{
        my ($self,@stuff) = @_;
        $self->foo(@stuff);
}

sub foo_goto
{
        goto &foo;
}

package main;

my $foo = Foo->new();
my @stuff = 0..100;
my @foo;

cmpthese(500, {
        pipe => sub { $foo->foo_pipe(@foo=@stuff) },
        goto => sub { $foo->foo_goto(@foo=@stuff) },
        my   => sub { $foo->foo_my(@foo=@stuff) },
});