#!/usr/bin/perl

package Foo;

use Carp "cluck";

sub new {
    my $class = shift;
    return bless { @_ }, $class;
}

sub myFunction {
    my $self = shift;
    cluck $self->{msg};
}

sub foo1 {
    my $self = $_[0];
    my $func = $self->can('myFunction');
    goto &$func;
}

sub foo2 {
    my $self = shift;
    my $func = sub { $self->myFunction };
    goto &$func;
}

sub foo3 {
    my $self = shift;
    $self->myFunction();
}


package main;

my $obj = Foo->new( msg => "foo" );
$obj->myFunction();    # direct call
$obj->foo1();          # indirect, using goto (transparent)
$obj->foo2();          # indirect, using goto via closure
$obj->foo3();          # indirect, using regular call via $self