MooseX::Attribute::ChainedClone(3) Attribute that returns a cloned instance


version 1.0.2


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;

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


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".



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.