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