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.

• Moritz Onken <onken@netcubed.de>
• David McLaughlin <david@dmclaughlin.com>

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.