perl - Perl 中的 warnings::warn 和 FATAL 类别

Question

我一定是错误地理解了警告文档。我读它的方式，这段代码:

use warnings;
use warnings FATAL => 'all';
warnings::warn('numeric', 'blarg');
print "finished\n";

应该打印 'blarg' 警告并死掉，因为我已经要求所有警告都是致命的。但是，当我运行代码时，我得到:

$> /opt/local/bin/perl x.pl 
blarg at x.pl line 3
finished

有人能帮我理解为什么我不能得到死亡警告吗？

Answer 1

好的。这很丑陋。我有一个半准备的帖子将其解释为 warnings 中的一个错误，然后我意识到它不是，它只是一种非常邪恶的微妙方式warnings作品。

警告开始寻找相关的堆栈帧以从 warnings::warn 中获取警告位。的来电者的来电者。这个想法是您正在编写一些模块并使用 warnings::warn或 warnings::warnif在您的函数中，是否打印(或致命)警告取决于 use warnings在使用您的模块的代码中设置范围。没有提供从 caller(1) 开始的选项而不是 caller(2) ，所以你想要的效果是不可能的。

一个有效的代码示例(并演示了这个接口(interface)是如何被编写它的人使用的):

package Foo;
require warnings;

sub bail {
  warnings::warnif('numeric', "You fool! You divided by zero!");
}

package main;
use warnings FATAL => all;

Foo::bail();
print "Will never be reached\n";

而且你不能仅仅通过添加另一个级别的子程序来破坏它的工作方式，因为它从第一个调用者那里获取标志，该调用者与 warn 的调用者在不同的包中。/ warnif/ enable/ETC。