Как я могу заставить Perl умереть, если генерируется предупреждение?
Я хотел бы, чтобы мой скрипт perl умирал всякий раз, когда генерируется предупреждение, включая предупреждения, генерируемые используемыми пакетами.
Например, это должно умереть:
use strict;
use warnings;
use Statistics::Descriptive;
my @data = ( 8, 9, 10, "bbb" );
my $stat = Statistics::Descriptive::Full->new();
$stat->add_data(@data);
use warnings FATAL => 'all'; не поможет, так как это лексически ограничено.Тестовый :: NoWarnings также не выполняет работу, поскольку не убивает скрипт.