#!/usr/bin/perl -l
use strict;
use warnings;

package foo;

sub new {
    bless {}, shift();
}

sub foo {
    my $self = shift;
    print "hello @_";
}

package main;

sub foo::bar {
    my ( $self ) = shift;
    $self->foo(@_);
}

*foo::baz  = \&foo::foo;
*foo::buzz = *foo::foo;

my $o = foo->new();

$o->bar('world');
$o->baz('world');
$o->buzz('world');

__END__