Select Code to Download

bless {foo => 'bar',
             options => {anoption      => 1,
                                     anotheroption => 'foo',
                                     option3 => 'barbar'},
             bar => 'maz'}, $class;

sub option {
    my $self = shift;
    if (scalar @_ == 1) {
...
        $self->{options}->{$key} = $value;
        }
}