libsub-uplevel-perl | module to spoof the Perl call stack | Mehr ...
Sub::Uplevel is a Perl module that provides a safe implementation similar to Tcl's uplevel() function. It allows you to safely fool the caller() into thinking it's in a different part of the stack, without knowing that it is being wrapped.