Test::foo();
Devel::TraceMethods::callback( sub { print STDERR "called $_[0].\n" } );
Test::bar();
Test::blah();
__END__
gives:
Executing foo!
called bar.
called AUTOLOAD.
Can works!