如何判斷我在哪個子程序？

Question

有沒有辦法獲得一段Perl代碼的封閉子例程的名稱？ 例如：

sub foo { print where_am_i(); } 

將輸出'foo'。

Answer 1

使用caller功能：

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