sub new {
  my $class = shift;
  return bless my $self = {}, (ref $class || $class);
}