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