Anhang

[Beat]

eine kleine Modifikation:

  
package Accessor;  
  
  
sub new {  
  my $proto = shift;  
  my $p = shift || 'x_';  
  my %dummy;  
  no strict 'refs';  
  foreach my $func (qw(a b c)) {  
         *{"${proto}::$p$func"}   = sub {  
       my $self = shift;  
       $dummy{$self}{$func} = $_[0] if @_;  ## Hier  
       return $dummy{$self}{$func};         ## Hier  
     };  
   }  
  my $self = bless \%dummy, $proto;  
  return $self;  
}  

mfg Beat