sub <string> {
      my ($class, %args) = @_;
      my $self = {};
      bless $self, $class;
      foreach (keys %args) {
        $self->$_($args{$_});
      }
      $self;
    }