NAME¶
Sub::Current - Get the current subroutine
SYNOPSIS¶
use Sub::Current;
sub f {
# ...
if ($some_condition) {
# let's recurse!
ROUTINE->();
}
# ...
}
DESCRIPTION¶
Sub::Current makes available a function "ROUTINE()", that returns a
code reference pointing at the currently executing subroutine.
In a special block (BEGIN, END, CHECK, INIT, and UNITCHECK in Perl 5.10) this
function will return undef.
Outside of a special block (that is, at the top level of a program)
"ROUTINE()" will return undef as well.
COPYRIGHT¶
(c) Copyright 2007 by Rafael Garcia-Suarez.
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.