/ 
MooseX-ChainedAccessors-0.01
River stage zero No dependents
/ MooseX::ChainedAccessors::Accessor

NAME

MooseX::ChainedAccessors::Accessor - Accessor class for chained accessors with Moose

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();

DESCRIPTION

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

AUTHORS

David McLaughlin <david@dmclaughlin.com>

COPYRIGHT AND LICENSE

Copyright 2009 David McLaughlin

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