X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FFormat%2FJSON.pm;h=44e00fa9f7de7b6d59ba86f5d7d7c8e7b6c61fb4;hb=ec72518379c644ab85126ee0391773ee7028665c;hp=7f1042626a031c9c80fa80dff80c452d75da4562;hpb=99b6180c9ef7db26cb514bb6e305f73fbcbc588e;p=gitmo%2FMooseX-Storage.git diff --git a/lib/MooseX/Storage/Format/JSON.pm b/lib/MooseX/Storage/Format/JSON.pm index 7f10426..44e00fa 100644 --- a/lib/MooseX/Storage/Format/JSON.pm +++ b/lib/MooseX/Storage/Format/JSON.pm @@ -41,25 +41,25 @@ MooseX::Storage::Format::JSON - A JSON serialization role package Point; use Moose; use MooseX::Storage; - + with Storage('format' => 'JSON'); - + has 'x' => (is => 'rw', isa => 'Int'); has 'y' => (is => 'rw', isa => 'Int'); - + 1; - + my $p = Point->new(x => 10, y => 10); - - ## methods to freeze/thaw into + + ## methods to freeze/thaw into ## a specified serialization format ## (in this case JSON) - + # pack the class into a JSON string $p->freeze(); # { "__CLASS__" : "Point", "x" : 10, "y" : 10 } - + # unpack the JSON string into a class - my $p2 = Point->thaw('{ "__CLASS__" : "Point", "x" : 10, "y" : 10 }'); + my $p2 = Point->thaw('{ "__CLASS__" : "Point", "x" : 10, "y" : 10 }'); =head1 METHODS @@ -81,7 +81,7 @@ MooseX::Storage::Format::JSON - A JSON serialization role =head1 BUGS -All complex software has bugs lurking in it, and this module is no +All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to cpan-RT.