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

##</code><code>##

                 Rate             method    blessed     sub
method  18939394/s      --           -30%     -39%
blessed 27173913/s      43%            --        -12%
sub        30864198/s     63%          14%       --