K 10
svn:author
V 7
chinsan
K 8
svn:date
V 27
2008-08-30T18:05:09.000000Z
K 7
svn:log
V 438
Add p5-Sub-Current, get the current subroutine.

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.

WWW: http://search.cpan.org/dist/Sub-Current/

END