Select Code to Download

sub param {
    my($self,@p) = self_or_default(@_);
...
#~~~~~Snip~~~~~
    return wantarray ? @{$self->{$name}} : $self->{$name}->[0];
}

sub param {
    my ( $self, $param, @p ) = @_;
#~~~~~Snip~~~~~
    return wantarray ? @{$self->{$param}} : $self->{$param}->[0];
}