package MooseX::Storage::Meta::Attribute::DoNotSerialize;
use Moose;
+our $VERSION = '0.01';
+
extends 'Moose::Meta::Attribute';
# register this alias ...
package Moose::Meta::Attribute::Custom::DoNotSerialize;
+
+our $VERSION = '0.01';
+
sub register_implementation { 'MooseX::Storage::Meta::Attribute::DoNotSerialize' }
1;
=head1 SYNOPSIS
+ package Point;
+ use Moose;
+ use MooseX::Storage;
+
+ with Storage('format' => 'JSON', 'io' => 'File');
+
+ has 'x' => (is => 'rw', isa => 'Int');
+ has 'y' => (is => 'rw', isa => 'Int');
+
+ has 'foo' => (
+ metaclass => 'DoNotSerialize',
+ is => 'rw',
+ isa => 'CodeRef',
+ );
+
+ 1;
+
=head1 DESCRIPTION
+Sometimes you don't want a particular attribute to be part of the
+serialization, in this case, you want to make sure that attribute
+uses this custom meta-attribute. See the SYNOPSIS for a nice example
+that can be easily cargo-culted.
+
=head1 METHODS
=head2 Introspection