/ 
MooseX-Storage-Format-JSONpm-0.093091
River stage zero No dependents
/ MooseX::Storage::Format::JSONpm

NAME

MooseX::Storage::Format::JSONpm - a format role for MooseX::Storage using JSON.pm

VERSION

version 0.093091

SYNOPSIS

package Point;
our $VERSION = '0.093091';


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;
our $VERSION = '0.093091';


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:

{ ascii => 1 }

METHODS

freeze

my $json = $obj->freeze;

thaw

my $obj = Class->thaw($json)

THANKS

Thanks to Stevan Little, Chris Prather, and Yuval Kogman, from whom I cribbed this code -- from MooseX::Storage::Format::JSON.

AUTHOR

Ricardo SIGNES <rjbs@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2009 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.