accessors::rw(3) User Contributed Perl Documentation accessors::rw(3)NAMEaccessors::rw - create 'classic' read/write accessor methods in
caller's package.
SYNOPSIS
package Foo;
use accessors::rw qw( foo bar baz );
my $obj = bless {}, 'Foo';
# always return the current value, even on set:
$obj->foo( 'hello ' ) if $obj->bar( 'world' ) eq 'world';
print $obj->foo, $obj->bar, $obj->baz( "!\n" );
DESCRIPTION
The accessors::rw pragma lets you create simple classic read/write
accessors at compile-time. It is an alias for accessors::classic.
AUTHOR
Steve Purkis <spurkis@cpan.org>.
SEE ALSO
accessors, accessors::ro, accessors::classic, accessors::chained, base
perl v5.14.1 2011-06-20 accessors::rw(3)