Select Code to Download

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

my %hash;
@hash{('a'..'d')} = (1..4);

sub foo {
   my ($self) = @_;
}

sub new {
    my ($class) = @_;
...
    
    return bless $self, $class;
}