MooseX::Storage::Traits::DisableCycleDetection - A custom trait to bypass cycle detection

Authors

       •   Chris Prather <chris.prather@iinteractive.com>

       •   Stevan Little <stevan.little@iinteractive.com>

       •   יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org>

Copyright And License

       This software is copyright (c) 2007 by Infinity Interactive, Inc.

       This  is  free  software;  you  can  redistribute  it and/or modify it under the same terms as the Perl 5
       programming language system itself.

perl v5.36.0                                       2022-10-16             MooseX::Storage...eCycleDetection(3pm)

Description

       "MooseX::Storage" implements a primitive check for circular references.  This check also triggers on
       simple cases as shown in the Synopsis.  Providing the "DisableCycleDetection" traits disables checks for
       any cyclical references, so if you know what you are doing, you can bypass this check.

       This trait is applied to all objects that inherit from it. To use this on a per-case basis, see
       "disable_cycle_check" in MooseX::Storage::Basic.

       See the SYNOPSIS for a nice example that can be easily cargo-culted.

Name

       MooseX::Storage::Traits::DisableCycleDetection - A custom trait to bypass cycle detection

Support

       Bugs may be submitted through the RT bug tracker
       <https://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-Storage> (or bug-MooseX-Storage@rt.cpan.org
       <mailto:bug-MooseX-Storage@rt.cpan.org>).

       There is also a mailing list available for users of this distribution, at
       <http://lists.perl.org/list/moose.html>.

       There is also an irc channel available for users of this distribution, at "#moose" on "irc.perl.org"
       <irc://irc.perl.org/#moose>.

Synopsis

           package Double;
           use Moose;
           use MooseX::Storage;
           with Storage( traits => ['DisableCycleDetection'] );

           has 'x' => ( is => 'rw', isa => 'HashRef' );
           has 'y' => ( is => 'rw', isa => 'HashRef' );

           my $ref = {};

           my $double = Double->new( 'x' => $ref, 'y' => $ref );

           $double->pack;