sub AUTOLOAD
{
   # Objekt und neuen Wert aus der Parameterliste holen
   my($self, $nv) = @_;
   # Methodennamen holen
   my $attr = $AUTOLOAD;

   # package entfernen
   $attr =~ s/.*:://;

   # alten Wert holen
   my $ov = $self->{$attr};
   # Wert ändern, falls gewünscht
   $self->{$attr} = $nv if defined $nv;

   # alten Wert zurückgeben
   return $ov;
}