sub option {
  my $self = shift;
  if (1 == @_) {
    return $self->{option}->{ shift(@_) };
  }
  else {
    %{$self->{option}} = (%{$self->{option}}, @_);
  }
}