you can use the UNIVERSAL::can method:

my $object = Ojbect->new;

# normal call
$object->call();

# get ref

my $ref = $object->can('call');

$ref->($object); # use reference..
[download]

This will also follow normal inheritance rules.

Note: you probably need to use the object you want to call as the first argument, because normal object methods expect $self to be the first arguments. (that's what $object->call() does anyway)...