http://www.perlmonks.org?node_id=1027231


in reply to Finding what called a subroutine

See Carp:

use Carp qw(croak); sub foo { croak; } foo();

Here, carp reports from the perspective of the caller. In this case, it will report both the line in the sub that died, and the line in the calling code that called the sub that died.

If you run the code above as "mytest.pl", unmodified it would output the following:

at ./mytest.pl line 4. main::foo() called at ./mytest.pl line 7

The Carp module also provides "confess" which will offer a more detailed back-trace.

If you just want to log calls you can use Carp's "carp" and "cluck" functions to get similar output to warn, but from the caller's perspective.


Dave