Как я могу определить, в какой подпрограмме я нахожусь?

Question

Есть ли способ получить имя включающей подпрограммы части кода на Perl? Например:

sub foo { print where_am_i(); }

выдаст 'foo'.

Answer 1

Используйте функцию вызывающий абонент :

my $function = (caller(0))[3];