##
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);