Альтернатива блоку eval?

Question

Есть ли эквивалент следующего -

eval { die "reason 1"; }; warn $@ if $@; 
eval { die "reason 2"; }; warn $@ if $@; 
eval { die "reason 3"; }; warn $@ if $@; 
. 
. 

Как вы можете заметить, следующий код не будет печатать все возможные причины для сценария, чтобы умереть ..

eval { 
    die "reason 1"; 
    die "reason 2"; 
    die "reason 3"; 
}; 
warn $@ if $@; 

[EDIT] Я бы как знать все возможные причины, сценарий (который использует много много библиотек) может потерпеть неудачу. Утверждения умирают не в месте, которое я могу редактировать.

Answer 1

переопределение матрицы не совсем альтернатива Eval, но это то, что я думаю, что вы спрашиваете о, пушной кубик и превращая его в предупредит, бревенчатый умереть и возобновить/продолжить программу

$ perl -e " eval{die 1;}; die 2; die 3; " 
2 at -e line 1. 

$ perl -Mwarnerous -e " eval{die 1;}; die 2; die 3; " 
FAKE die : 2 at -e line 1 
FAKE die : 3 at -e line 1 

$ cat warnerous.pm 
*CORE::GLOBAL::die = sub { 
    unless($^S){ 
     warn(qq{FAKE die : @_ @{[sprintf q{at %s line %s },(caller)[1,2] ]}\n}); 
    } 
}; 
1; 

Answer 2

Вы имеете в виду что-то вроде этого?

my $problems; 
for my $r (1 .. 3) { 
    eval { die "reason $r"; 1 } or $problems .= $@; 
} 

warn "There were the following problems:\n$problems";