NAME

MooseX::Attribute::ChainedClone - Attribute that returns a cloned instance

VERSION

version 1.0.3

SYNOPSIS

package Test;
use Moose;

has debug => (
    traits => [ 'ChainedClone' ],
    is => 'rw',
    isa => 'Bool',
    default => 0,
);

sub complex_method
{
    my $self = shift;
  
    #...
  
    print "helper message" if $self->debug;
  
    #...
}

sub clone {
    my $self = shift;
    # custom clone code here
    # defaults to:
    return bless { %$self }, ref $self;
}


1;

Which allows for:

my $test = Test->new;
$test->debug(1)->complex_method; # debug enabled
                                 # complex_method is called on a cloned instance
                                 # with debug set to 1

$test->complex_method;           # debug is still disabled on $test

$test->debug(1); # returns a cloned $test instance with debug set to 1
$test->debug;    # returns 0

DESCRIPTION

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

If $self has a clone method, this method is invoked to clone the instance. This allows for easy integration with MooseX::Clone or any custom made clone method. If no clone method is available, the new instance is build using bless { %$self }, ref $self.

AUTHORS

• Tom Hukins <tom@eborcom.com>

• Moritz Onken <onken@netcubed.de>

• David McLaughlin <david@dmclaughlin.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2017 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.

BUGS

Please report any bugs or feature requests on the bugtracker website http://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-Attribute-Chained or by email to bug-moosex-attribute-chained at rt.cpan.org.

When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.