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

##</code><code>##

%hash = ( %hash, @array );