http://qs321.pair.com?node_id=47146


in reply to Very very small style question

Or as another alternative:
sub method { my $self = shift; my $i = shift; my $old = $self->{B}[$i]; $self->{B}[$i] = shift if @_; $old; }
I tend to hate magic numbers. What if you decide later that there should be another parameter between $self and $i?

-- Randal L. Schwartz, Perl hacker