MooseX::ChainedAccessors - Accessor class for chained accessors with Moose
version 0.02
package Test; use Moose; has => 'debug' => ( traits => [ 'Chained' ], is => 'rw', isa => 'Bool', ); sub complex_method { my $self = shift; #... print "helper message" if $self->debug; #... } 1;
Which allows for:
my $test = Test->new(); $test->debug(1)->complex_method();
MooseX::ChainedAccessors is a Moose Trait which allows for method chaining on accessors by returning $self on write/set operations.
This software is copyright (c) 2011 by Moritz Onken.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.