---
name: "MooseX::Attribute::ChainedClone"
section: "3pm"
platform: "linux"
package: "libmoosex-attribute-chained-perl"
version: "1.0.3-2"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/MooseX::Attribute::ChainedClone"
---

# MooseX::Attribute::ChainedClone(3pm)

Attribute that returns a cloned instance

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