blob: 77e8021419f4e5059e8d8fe9130e68be94f80d91 (
plain) (
blame)
1
2
3
4
5
6
7
8
|
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.
|
