in reply to Why get() and set() accessor methods are evil

I found this whole thread interesting. When i read the title I thought "yep, I agree with that" but then on reading closer it wasnt even what I was thinking at all! :-) What I thought you meant was all those aweful sub like

sub get_foo { my $self=shift; return $self->{foo}; }

and its correspondingly ugly set_foo. If you had been talking about those being evil then i would agree. :-) Perl offers fancier and IMO more intuitive ways to do things:

sub foo { my $self=shift; if (@_) { $self->{foo}=shift; return $self; } else { return $self->{foo} } }

(or a variant thereof, you can golf it down nicely. :-)


    First they ignore you, then they laugh at you, then they fight you, then you win.
    -- Gandhi