$ perl -E 'sub method { my $self = shift; $self->() }
           my $obj = sub { say "HELLO" };
           bless $obj;
           $obj->method()'
HELLO