sub set_attr { # 0 self # 1 attr # 2 value $_[0]->{$_[1]} = $_[2]; } sub get_attr { # 0 self # 1 attr $_[0]->{$_[1]} } #### sub set_attr { my $self = shift; my $attr = shift; my $value = shift; $self->{$attr} = $value; } #### sub addNums { # 0 self # 1 attr # 2 value $_[0]->{$_[1]} = $_[2]; } #### sub capitalize { my ($word) = @_; $word = "\u$word"; return $word; } #### sub capitalize { $_[0]="\u$_[0]"; } #### $word = captitalize($word); #### captitalize($word);