Class::Accessor::Lvalue::Fast - create simplified Lvalue accessors
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 the Class::Accessor::Fast manpage 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.
the Class::Accessor::Fast manpage, Want
|