MooseX::Storage::Format::JSONpm - a format role for MooseX::Storage using JSON.pm
version 0.093092
package Point; use Moose; use MooseX::Storage; with Storage(format => 'JSONpm'); has 'x' => (is => 'rw', isa => 'Int'); has 'y' => (is => 'rw', isa => 'Int'); 1; my $p = Point->new(x => 10, y => 10); # pack the class into a JSON string my $json = $p->freeze(); # { "__CLASS__" : "Point", "x" : 10, "y" : 10 } # unpack the JSON string into an object my $p2 = Point->thaw($json);
...in other words, it can be used as a drop-in replacement for MooseX::Storage::Format::JSON. However, it can also be parameterized:
package Point; use Moose; use MooseX::Storage; with Storage(format => [ JSONpm => { json_opts => { pretty => 1 } } ]);
At present, json_opts is the only parameter, and is used when calling the to_json and from_json routines provided by the JSON library. Default values are merged into the given hashref (with explict values taking priority). The defaults are as follows:
json_opts
to_json
from_json
{ ascii => 1 }
my $json = $obj->freeze;
my $obj = Class->thaw($json)
Thanks to Stevan Little, Chris Prather, and Yuval Kogman, from whom I cribbed this code -- from MooseX::Storage::Format::JSON.
Ricardo SIGNES <rjbs@cpan.org>
This software is copyright (c) 2011 by Ricardo SIGNES.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install MooseX::Storage::Format::JSONpm, copy and paste the appropriate command in to your terminal.
cpanm
cpanm MooseX::Storage::Format::JSONpm
CPAN shell
perl -MCPAN -e shell install MooseX::Storage::Format::JSONpm
For more information on module installation, please visit the detailed CPAN module installation guide.