sub option {
    my ($self, $key, $value) = @_;
    return defined $value ?
        $self->{options}->{$key} = $value :
        $self->{options}->{$key};
}