accessors::rw - create 'classic' read/write accessor methods in caller's package. |
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 the accessors::classic manpage.
Steve Purkis <spurkis@cpan.org>.
the accessors manpage, the accessors::ro manpage, the accessors::classic manpage, the accessors::chained manpage, base
accessors::rw - create 'classic' read/write accessor methods in caller's package. |