Object Getter/Setter und undef

[hotti]

moin,

  
$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.

Hotti