Logging functions as they are called

[Anonymous Monk]

I've got a CGI webapp that is starting to grow

Right now it has some elementary debugging support--

  sub x{ 
  my ($self)= @_;
  DEBUG_FUNCTION_NAME && MyDebugger::log_function_name( $self );
}

MyDebugger::log_function_name does all the necessary operations on caller(1) to get me the info I need.
I know some of the CPAN developer packagers have figured out ways to hook into a function as it is called. unfortunately, I haven't been able to reverse engineer how to do it
Does anyone know if its possible for me to do this in perl itself (without using xs ) : to have a specific function called per sub call ?

[dave0]

Take a look at Devel::CallTrace -- it's probably the simplest of the call-tracing modules.

[dtr]

Have a look at Sub::WrapPackages, or Hook::LexWrap. These should both help with what you're trying to do.

Also, if you're getting into logging, you could do much worse than looking at Log::Log4perl too.

[traveler]

Try Aspect::Trace. It sounds like exactly what you are looking for.

[eff_i_g]

I was trying to do something similar a while back. I liked sgifford's method in Re: Tweaking 'return'.