Error for Standardlibrary? - #113594 (Allgemeines zu Perl)

defun

2008-08-17 01:31

User since
2008-07-18
28 Artikel
BenutzerIn
[default_avatar]

Ich meine sowas wie

Code (perl): (dl )

my $status = catch
{
   my $result;
   my $ottoStatus = catch {$result = otto()};
   doSomethingWith($ottoStatus) if $ottoStatus;
   error("Wrong number of otto\n") unless $result == 4;
   doAnything();
};
doSomethingWith($status) if $status;

Inzwischen hat sich der Knoten in meinem Kopf gelöst und mir ist klar, dass man das gewünschte Verhalten mit einem Stack erreicht:

Code (perl): (dl )

package ErrorHandling;
our @RecordedErrors;
sub error
{
   $RecordedErrors[-1] = [@_];
   die;
}
sub catch(&)
{
   my $code = shift;
   push @RecordedErrors, 0;
   eval {$code->()};
   return pop @RecordedErrors;
}