Как я могу получить название текущей подпрограммы в Perl?
В Perl мы можем получить имя текущего пакета и номер текущей строки, используя предопределенные переменные, такие как__PACKAGE__ а также__LINE__.
Вот так я хочу получить имя текущей подпрограммы:
use strict;
use warnings;
print __PACKAGE__;
sub test()
{
print __LINE__;
}
&test();
В приведенном выше коде я хочу получить имя подпрограммы внутри функцииtest.