accessors::chained(3) 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]>