On Thu, 2006-08-06 at 10:56 -0700, Anthony Ettinger wrote:
> i prefer the return once method:
>
> sub foo
> {
> my $self = shift;
> if (@_ == 1) { $self->{'foo'} = shift; }
>
> return $self->{'foo'};
> }
I would prefer it to return the old value:
sub foo {
my $self = shift;
my $old_foo = $self->{'foo'};
$self->{'foo'} = shift if @_ > 0;
return $old_foo;
}
--
__END__
Just my 0.00000002 million dollars worth,
--- Shawn
"For the things we have to learn before we can do them, we learn by doing them."
Aristotle
* Perl tutorials at http://perlmonks.org/?node=Tutorials
* A searchable perldoc is at http://perldoc.perl.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
