use v5.10;
use strict;
use warnings;
use Benchmark qw( cmpthese );

sub Foo::bar { $_[0][0] or die }
our $object = bless [1], "Foo";

cmpthese -1 => {
	"method call"   => q[ $::object->bar ],
	"fun call"      => q[ Foo::bar( $::object ) ],
};

__END__
                 Rate method call    fun call
method call 4365983/s          --        -15%
fun call    5128108/s         17%          --