perl - 我怎么知道我在哪个子程序中？

Question

有没有办法获取一段 perl 代码的封闭子程序的名称？例如：

sub foo { print where_am_i(); }

将输出'foo'.

Answer 1

使用调用函数：

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