VERSION
version 1.0.2SYNOPSIS
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 <[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.