sub new{ my $self = bless{}, shift; # sorry, I'm hurry return eval{ # von hier # stehen alle Initialisierungen, die eine # Exception werfen können # bis hier $self; # das geht return, wenn bis hier alles gutgegangen ist }; }