VERSION

version 1.0.2

SYNOPSIS

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;
    $test->debug(1); # returns $test
    $test->debug;    # returns 1

DESCRIPTION

MooseX::Attribute::Chained is a Moose Trait which allows for method chaining on accessors by returning $self on write/set operations.

AUTHORS

• Tom Hukins <[email protected]>
• Moritz Onken <[email protected]>
• David McLaughlin <[email protected]>

COPYRIGHT AND LICENSE

This software is copyright (c) 2016 by Tom Hukins.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.