sub option {
  my $self=shift;
  die unless @_;
  if (@_ == 1) {
     return $self->{options}->{+shift};
  }
  my %h=@_;
  @{$self->{options}}{keys %h}=values %h;
}

##</code><code>##

   while(@_) {
      $self->{options}->{+shift}=shift;
   }