Sub::Current.3pm

Langue: en

Version: 2007-07-04 (ubuntu - 24/10/10)

Section: 3 (Bibliothèques de fonctions)

Sommaire

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.

(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.