sub CLEAR {
  my $self = shift;
  @$self = ( {} );
}