Select Code to Download

sub set_attr {
    # 0 self
...
    # 1 attr
    $_[0]->{$_[1]}
}

sub set_attr {
    my $self  = shift;
...
    my $value = shift;
    $self->{$attr} = $value;
}

sub addNums {
    # 0 self
...
    # 2 value
    $_[0]->{$_[1]} = $_[2];
}

sub capitalize {
    my ($word) = @_;
    $word = "\u$word";
    return $word;
}

sub capitalize {
    $_[0]="\u$_[0]";
}

$word = captitalize($word);

captitalize($word);