package MooseX::Storage::Deferred;
use Moose::Role;
-our $VERSION = '0.26';
-our $AUTHORITY = 'cpan:STEVAN';
-
with 'MooseX::Storage::Basic';
sub __get_method {
=head1 NAME
+=for stopwords undecisive
+
MooseX::Storage::Deferred - A role for undecisive programmers
=head1 SYNOPSIS
use Moose;
use MooseX::Storage;
- our $VERSION = '0.01';
-
with 'MooseX::Storage::Deferred';
has 'x' => (is => 'rw', isa => 'Int');
# pack the class into a JSON string
$p->freeze({ format => 'JSON' }); # { "__CLASS__" : "Point", "x" : 10, "y" : 10 }
+ # pack the class into a JSON string using parameterized JSONpm role
+ $p->freeze({ format => [ JSONpm => { json_opts => { pretty => 1 } } ] });
+
# unpack the JSON string into a class
my $p2 = Point->thaw(
'{ "__CLASS__" : "Point", "x" : 10, "y" : 10 }',
=item I<JSON>
+=for stopwords JSONpm
+
+=item I<JSONpm>
+
=item I<YAML>
=item I<Storable>