accessors::rw − create ’classic’ read/write accessor methods in caller’s package.
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" );
The accessors::rw pragma lets you create simple classic read/write accessors at compile-time. It is an alias for accessors::classic.
Steve Purkis <spurkis AT cpan DOT org>.
accessors, accessors::ro, accessors::classic, accessors::chained, base