Come posso far morire Perl se viene generato un avviso?

Question

Vorrei che il mio script perl muoia ogni volta che viene generato un avviso, inclusi gli avvisi generati dai pacchetti usati.

Ad esempio, questo dovrebbe morire:

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'; non aiuterà dal momento che è con scope lessicale. Test::NoWarnings non esegue il lavoro poiché non uccide lo script.

Answer 1

Per aggiungere alla risposta è Rafl: quando si aggiunge un gestore per %SIG, è (di solito) meglio non sovrascrivere alcun gestore precedente, ma lo chiamano dopo aver eseguito il codice:

my $old_warn_handler = $SIG{__WARN__}; 
$SIG{__WARN__} = sub { 

    # DO YOUR WORST... 

    $old_warn_handler->(@_) if $old_warn_handler; 
}; 

(questo vale anche per gestori di segnale come $SIG{HUP}, $SIG{USR1}, ecc si sa mai se qualche altro pacchetto (o anche un altro esempio di "voi") già impostare un gestore che ha ancora bisogno di correre.)

Answer 2

Credo che stiate cercando $SIG{__WARN__} come documentato in perlvar. Qualcosa di simile a

$SIG{__WARN__} = sub { die @_ }; 

potrebbe essere quello che vuoi.