package MooseX::Storage::Format::JSONpm 0.093094;
use MooseX::Role::Parameterized;
# ABSTRACT: a format role for MooseX::Storage using JSON.pm
#pod =head1 SYNOPSIS
#pod
#pod package Point;
#pod u
se Moose;
#pod use MooseX::Storage;
#pod
#pod with Storage(format => 'JSONpm');
#pod
#pod has 'x' => (is => 'rw', isa => 'Int');
#pod has 'y' => (is => 'rw', isa => 'Int');
#pod
#pod 1;
#pod
lass into a JSON string
#pod my $json = $p->freeze(); # { "__CLASS__" : "Point", "x" : 10, "y" : 10 }
#pod
#pod # unpack the JSON string into an object
#pod my $p2 = Point->thaw($json);
#pod
#po