debian man page for accessors::rw

accessors::rw(3pm)					User Contributed Perl Documentation					accessors::rw(3pm)

NAME
       accessors::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( "!
" );

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.12.4							    2011-10-16							accessors::rw(3pm)