sub new {
  my ($class, %self) = @_;
  return bless \%self, $class;
}