use strict;
use warnings;
use feature ":all";

use Benchmark qw<cmpthese>;

my $count=$ARGV[0]//1;

package SUB_TEST {
	sub new { bless sub {1}, __PACKAGE__}
	sub method { 1 }
}

my $obj=SUB_TEST->new();

my $sub=sub {1};

cmpthese($count, 
		{ 
			blessed=>sub {$obj->()},
			method=>sub{$obj->method()},
			sub=>sub{$sub->()}
		}
	);