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.
To install MooseX::ChainedAccessors, copy and paste the appropriate command in to your terminal.
cpanm
cpanm MooseX::ChainedAccessors
CPAN shell
perl -MCPAN -e shell install MooseX::ChainedAccessors
For more information on module installation, please visit the detailed CPAN module installation guide.