Object Getter/Setter und undef

[Beat]

$ob->method();
$ob->method;    # same as above
$ob->method('4711'); # ein Argument

sub method{
  my $self = shift; # das erste Arg ist immer das Objekt
  my $val  = shift || undef; # zweites Arg ist das erste aus der Klammer
  $self->{KEY} = $val;
}

>   
> Wenn eine Methode nur die Attribute eines Objekts ändert, brauchst Du keine Return-Values weil Du eine Referenz übergibst.  
  
Dadurch aber setzt $ob->method den hashwert auf undef.  
Ich würde eher erwarten, den Wert zurückzuerhalten, ohne ihn gleichzeitig auf undef zu setzen.  
  
Ich komme anscheinend nicht um eine extra Methode aus.  
  
mfg Beat

-- 

><o(((°>           ><o(((°>  

   <°)))o><                     ><o(((°>o  
Der Valigator leibt diese Fische