sub foo { warn "foo" } __PACKAGE__->foo();

##</code><code>##

for my $n (qw"foo bar") { *$n = sub { warn $n } } __PACKAGE__->foo();

##</code><code>##

AUTOLOAD { warn $AUTOLOAD } __PACKAGE__->foo();