在开发过程中,如何将Perl警告推广到致命错误？

运行应用程序测试套件时,我希望将所有Perl编译和运行时警告(例如“未初始化的变量”警告)提升为致命错误,以便我和其他开发人员调查并修复生成警告的代码.但我只想在开发和CI测试期间做到这一点.在生产中,警告应该保持警惕.

我尝试了以下内容：在“t / lib”中,我创建了一个模块TestHelper.pm：

# TestHelper.pm
use warnings FATAL => qw( all );
1;

然后称之为测试套件：

$PERL5LIB=$PERL5LIB:./t/lib PERL5OPT=-MTestHelper.pm prove -l t/*.t

但是,这并没有将所有警告提示为致命错误的预期效果.我的警告正常,但警告似乎并没有被视为致命的.请注意,我所有的test.t脚本都有“使用警告”在他们中 – 也许这是超过了TestHelper.pm中的一个,因为“使用警告”有一个本地范围？

相反,我做到了这一点：

# TestHelper.pm
# Promote all warnings to fatal 
$SIG{__WARN__} = sub { die @_; };
1;

这是有效的,但有一个代码的气味.我也不喜欢它在第一个警告上炸弹.我宁愿测试套件运行完整,记录所有警告,但测试状态最终失败,因为代码运行警告.

有没有更好的方法来达到这个最终结果？

解决方法

我想你正在寻找 Test::NoWarnings.