Perl module to determine the executing subroutine

 Sub::Current provides a fairly magical function called ROUTINE() which returns
 a code reference pointing at the currently executing subroutine. It does not
 make sense to use this inside a special block (such as BEGIN, END, UNITCHECK,
 CHECK or INIT) or at the top level of a program, so ROUTINE will return undef.