blob: cb0f369af84410a0ce2128671a5285a77f55713b (
plain)
1
2
3
4
5
6
7
8
9
10
|
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.
WWW: https://metacpan.org/release/Sub-Current
|
