Come gestisco entrambi gli errori rilevati e non rilevati in una subroutine Perl?

Question

Questo è un seguito per "How can I get around a ‘die’ call in a Perl library I can’t modify?".

Ho una subroutine che chiama una libreria-quale-crash-A volte molte volte. Invece di divano ogni chiamata all'interno di questa subroutine con un eval {}, ho solo permettono di morire, e utilizzare un eval {} al livello che chiama il mio subroutine:

my $status=eval{function($param);}; 
unless($status){print $@; next;}; # print error and go to 
            # next file if function() fails 

Tuttavia, ci sono condizioni di errore che ho può e fa prendere in funzione(). Qual è il modo più corretto/elegante per progettare l'intercettazione degli errori nella subroutine e nella routine di chiamata in modo da ottenere il comportamento corretto sia per gli errori rilevati che per quelli non rilevati?

Answer 1

blocco eval può essere nidificato:

sub function { 
    eval { 
     die "error that can be handled\n"; 
     1; 
    } or do { 
     #propagate the error if it isn't the one we expect 
     die $@ unless $@ eq "error that can be handled\n"; 
     #handle the error 
    }; 
    die "uncaught error"; 
} 

eval { function(); 1 } or do { 
    warn "caught error $@"; 
}; 

Answer 2

io non sono del tutto sicuro di quello che si vuole fare, ma credo che si può fare con un gestore.

$SIG{__DIE__} = sub { print $@ } ; 

eval{ function($param); 1 } or next;