Select Code to Download

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

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

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