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>