sub option {
    my ($self,$arg,$value) = @_;
    return $self->{options}->{$arg} unless $value;
    $self->{options}->{$arg} = $value;
}