my $self = bless {}, $class;
  while ( my($method, $value) = splice @_, 0, 2 ) {
    $self->$method( $value );
  }
  return $self;