sub FETCH { 
 
  my($self, $key) = @_; 
 
  unless (exists $self->{$key}) { 
    if (my $meth = $self->can($key)) { 
      $self->{$key} = $meth->($self);
    } 
    else { 
      warn "No method for '$key'"; 
      $self->{$key} = undef; 
    } 
  } 
  return $self->{$key}; 
}