Rafaël Garcia-Suarez > Sub-Current-0.02 > Sub::Current

Download:
Sub-Current-0.02.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  3
Open  0
View/Report Bugs
Module Version: 0.02   Source  

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.

syntax highlighting: