package MooseX::Storage::Traits::DisableCycleDetection;
use Moose::Role;
-our $VERSION = '0.18';
-our $AUTHORITY = 'cpan:STEVAN';
-
requires 'pack';
requires 'unpack';
$self->$orig($data, %args);
};
+no Moose::Role;
+
1;
__END__
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;
-
-
+
=head1 DESCRIPTION
C<MooseX::Storage> implements a primitive check for circular references.
This trait is applied to all objects that inherit from it. To use this
on a per-case basis, see C<disable_cycle_check> in L<MooseX::Storage::Basic>.
+=for stopwords culted
+
See the SYNOPSIS for a nice example that can be easily cargo-culted.
=head1 METHODS
=head1 BUGS
-All complex software has bugs lurking in it, and this module is no
+All complex software has bugs lurking in it, and this module is no
exception. If you find a bug please either email me, or add the bug
to cpan-RT.
it under the same terms as Perl itself.
=cut
+