perl - どのサブルーチンにいるのかを知るにはどうすればよいですか?

Question

perl コードの一部を囲むサブルーチンの名前を取得する方法はありますか? 例えば：

sub foo { print where_am_i(); }

を出力します'foo'。

Answer 1

呼び出し元関数を使用します。

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