perl - 明示的なwarn（）の結果として__WARN__ハンドラーが呼び出されたかどうかをどのように検出できますか？

Question

$SIG{__WARN__}ハンドラーがあります。それが明示的なwarn呼び出しの結果として呼び出されたのか、Perlによって生成された警告の結果として呼び出されたのか（たとえば、未定義の変数を使用して）を判断する方法はありますか？

Answer 1

次のように、警告メッセージがハンドラに渡されます。

$SIG{__WARN__} = sub {
    my $warning = shift;
    #do something with warning.
}