I'm asking because I'm a little confused about using it. Why can't I do this:
#######################################
sub nickname {
my $self = shift;
return $self->{NICK};
}
#######################################But I can do this:
#######################################
sub nickname {
my $self = shift;
if (@_) { $self->{NICK} = shift
}
return $self->{NICK};
}
#######################################_________________________________________________________________ Express yourself with cool new emoticons http://www.msn.co.uk/specials/myemo
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
