Class::Accessor::Lvalue::Fast

 package Foo;
 use base qw( Class::Accessor::Lvalue::Fast );
 __PACKAGE__->mk_accessors(qw( bar ))
 my $foo = Foo->new;
 $foo->bar = 42;
 print $foo->bar; # prints 42

This module subclassess Class::Accessor::Fast in order to provide lvalue accessors.

Richard Clamp <richardc@unixbeard.net>

Copyright (C) 2003 Richard Clamp. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Class::Accessor::Fast, Want