¿Cómo se gestionan los dos errores capturados y no capturadas en una subrutina Perl?
-
22-08-2019 - |
Pregunta
Esta es una continuación de " ¿Cómo puedo obtener en torno a un 'muera' llamo en una biblioteca Perl no puedo modificar? ".
Tengo una subrutina que llama a una biblioteca -que-choques-A veces muchas veces. En lugar de sofá cada llamada dentro de este subprograma con una eval {}, acabo de dejar que se muera, y el uso de un eval {} en el nivel que me llama la subrutina:
my $status=eval{function($param);};
unless($status){print $@; next;}; # print error and go to
# next file if function() fails
Sin embargo, hay condiciones de error que pueden y deben captar durante la función (). ¿Cuál es la forma más adecuada / elegante para diseñar el error de captura en la subrutina y llamar a la rutina de modo que consiga el comportamiento correcto de los errores tanto atrapados y no capturadas?
Solución
Bloquear eval puede anidarse:
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 $@";
};
Otros consejos
No estoy completamente seguro de lo que quiere hacer, pero creo que se puede hacer con un controlador.
$SIG{__DIE__} = sub { print $@ } ;
eval{ function($param); 1 } or next;