Create method chaining accessors in caller's package.
package Foo; use accessors::chained qw( foo bar baz ); my $obj = bless {}, 'Foo'; # generates chaining accessors: $obj->foo( 'hello ' ) ->bar( 'world' ) ->baz( "!\n" ); print $obj->foo, $obj->bar, $obj->baz;
The accessors::chained pragma lets you create simple method-chaining accessors at compile-time.
This module exists for future backwards-compatability - if the default style of accessor ever changes, method-chaining accessors will still be available through this pragma.
See accessors for documentation.
Steve Purkis <[email protected]>
accessors, accessors::classic, base