sub DELETE {
      my ($self, $key) = @_:
      $self->STORE($key, '');
}