libsub-current-perl 0.02-2build2 (ppc64el binary) in ubuntu xenial

 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.