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.