my $self = shift;
foreach my $key (keys(%{$self}))
  { delete $self->{$key}; }