如何检测__WARN__处理程序是否由于显式warn（）而被调用？

Question

我有一个$SIG{__WARN__}处理程序。有没有办法确定是否由于明确的warn调用与Perl生成的警告（例如使用未定义的变量）而调用了它？

Answer 1

警告消息是传递给处理程序的消息，如

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