Log4Perl - Tracking subroutine invocation

msr

Hi,

Iam using Log4Perl in our perl components. Iam writing debug statement at the begin & end of each subroutine to track the flow as shown in the below example. Here i am looking for an option, is it possible to print the message while start & end of subroutine without using $logger->info("Start/End").

Please suggest if you have any hint on this.
Ex:
sub process {
my $self = shift;
$logger->info("Process started");
#Logic goes here
test();

$logger->info("Process Ended");
}

sub test{
my $self = shift;
$logger->info("Start");
#Logic goes here
test999();

$logger->info("End");

}
Thanks in advance,
MSR.

Adam Stoller

There might be a way to hack some code around the Perl internals that will automatically insert such lines into the code stream for you - but to the best of my knowledge you'll have to have those lines.