bless coderef

use Benchmark qw(cmpthese);

sub hello { return 'HELLO' }
sub world { return 'WORLD' }
sub hello2 { return 'HELLO' }

*{"hello"} = bless \&hello, __PACKAGE__;

hello();
my $hello = \&hello;
$hello->world;

# almost same
#cmpthese -1, {
#    hello => sub { hello() },
#    hello2 => sub { hello2() },
#    hello_coderef => sub { $hello->() },
#};

use Devel::Peek;
Dump $hello;
warn ref $hello; # main
warn ref \&hello; # main
warn ref \&hello2; # CODE