sub new {
   my $class = (ref($_[0]) || $_[0]);
   my $self = bless {}, $class;
   tie %$self, $class;
   $self
}