Как мне обрабатывать как пойманные, так и необнаруженные ошибки в подпрограмме Perl?

Question

Это продолжение «Как я могу обойти вызов« die »в библиотеке Perl, которую я не могу изменить?» .

У меня есть подпрограмма, которая вызывает библиотеку, которая приводит к сбою, иногда много раз. Вместо того чтобы заключать каждый вызов в этой подпрограмме в eval {}, я просто позволяю ему умереть и использую eval {} на уровне, который вызывает мою подпрограмму:

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

Тем не менее, есть ошибки, которые я могу и поймаю в функции (). Каков наиболее правильный / изящный способ создания функции обнаружения ошибок в подпрограмме и подпрограмме вызова, чтобы я получал правильное поведение как для обнаруженных, так и для необнаруженных ошибок?

Answer 1

Блок eval может быть вложенным:

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

Я не совсем уверен, что вы хотите сделать, но я думаю, что вы можете сделать это с помощью обработчика.

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

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