package MooseX::Storage::Meta::Attribute::DoNotSerialize; # ABSTRACT: A custom meta-attribute to bypass serialization our $VERSION = '0.53'; use Moose; use namespace::autoclean; extends 'Moose::Meta::Attribute'; with 'MooseX::Storage::Meta::Attribute::Trait::DoNotSerialize'; # register this alias ... package # hide from PAUSE Moose::Meta::Attribute::Custom::DoNotSerialize; sub register_implementation { 'MooseX::Storage::Meta::Attribute::DoNotSerialize' } 1; __END__ =pod =encoding UTF-8 =head1 NAME MooseX::Storage::Meta::Attribute::DoNotSerialize - A custom meta-attribute to bypass serialization =head1 VERSION version 0.53 =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 =for stopwords culted 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 SUPPORT Bugs may be submitted through L (or L). There is also a mailing list available for users of this distribution, at L. There is also an irc channel available for users of this distribution, at L on C|irc://irc.perl.org/#moose>. =head1 AUTHORS =over 4 =item * Chris Prather =item * Stevan Little =item * יובל קוג'מן (Yuval Kogman) =back =head1 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. =cut