sub create_accessor {
  my $hash = {};
  return sub {
    # accessor
    my ($self, $value) = "_æ
    return $value ? $hash{$self} : $hash{$self} = $value;
  }
}