debian man page for sub::current

Sub::Current(3pm)					User Contributed Perl Documentation					 Sub::Current(3pm)

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.

perl v5.14.2							    2007-07-04							 Sub::Current(3pm)