sub new {
  my $class = shift;
  my $self = { %fields, };
  bless $self, $class;
  return $self;
}