2 package MooseX::Storage::Format::Storable;
8 our $AUTHORITY = 'cpan:STEVAN';
14 my ( $class, $stored, @args ) = @_;
15 $class->unpack( Storable::thaw($stored), @args );
19 my ( $self, @args ) = @_;
20 Storable::nfreeze( $self->pack(@args) );
33 MooseX::Storage::Format::Storable - A Storable serialization role
41 with Storage('format' => 'Storable');
43 has 'x' => (is => 'rw', isa => 'Int');
44 has 'y' => (is => 'rw', isa => 'Int');
48 my $p = Point->new(x => 10, y => 10);
50 ## methods to freeze/thaw into
51 ## a specified serialization format
53 # pack the class with Storable
54 my $storable_data = $p->freeze();
56 # unpack the storable data into the class
57 my $p2 = Point->thaw($storable_data);
61 This module will C<thaw> and C<freeze> Moose classes using Storable. It
62 uses C<Storable::nfreeze> by default so that it can be easily used
63 in IPC scenarios across machines or just locally.
65 One important thing to note is that this module does not mix well
66 with the IO modules. The structures that C<freeze> and C<thaw> deal with
67 are Storable's memory representation, and (as far as I know) that
68 is not easily just written onto a file. If you want file based
69 serialization with Storable, the please look at the
70 L<MooseX::Storage::IO::StorableFile> role instead.
78 =item B<thaw ($stored)>
92 All complex software has bugs lurking in it, and this module is no
93 exception. If you find a bug please either email me, or add the bug
98 Stevan Little E<lt>stevan.little@iinteractive.comE<gt>
100 =head1 COPYRIGHT AND LICENSE
102 Copyright 2007-2008 by Infinity Interactive, Inc.
104 L<http://www.iinteractive.com>
106 This library is free software; you can redistribute it and/or modify
107 it under the same terms as Perl itself.