Perl :Getting the name of the current subroutine
- by kiruthika
Hi all,
In perl we can get the name of the current package and current line number Using the predefined variables like _PACKAGE and __LINE .
Like this I want to get the name of the current subroutine.
Example
use strict;
use warnings;
print __PACKAGE__;
sub test()
{
print __LINE__;
}
&test();
In the above code I want to get the name of the subroutine inside the function 'test'.
Thanks in advance.
