sub _store {
  #
  # internal sub for saving a block
  #
  my($this, $level, %config) = @_;
  ...
}