*Foo::Bar::Baz::AUTOLOAD = sub { 1 };

##</code><code>##

(0) $ perl -de 1

Loading DB routines from perl5db.pl version 1.28
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(-e:1):   1
  DB<1> *main::AUTOLOAD = sub { print "$main::AUTOLOAD @_" }

  DB<2> main->foo(1,2,3)
main::foo main 1 2 3
  DB<3>