make spelling tests pass

[gitmo/MooseX-Storage.git] / lib / MooseX / Storage / Deferred.pm

diff --git a/lib/MooseX/Storage/Deferred.pm b/lib/MooseX/Storage/Deferred.pm
index 1e34f16..f0b9572 100644 (file)
--- a/lib/MooseX/Storage/Deferred.pm
+++ b/lib/MooseX/Storage/Deferred.pm
@@ -1,9 +1,6 @@
 package MooseX::Storage::Deferred;
 use Moose::Role;
 
-our $VERSION   = '0.26';
-our $AUTHORITY = 'cpan:STEVAN';
-
 with 'MooseX::Storage::Basic';
 
 sub __get_method {
@@ -67,6 +64,8 @@ __END__
 
 =head1 NAME
 
+=for stopwords undecisive
+
 MooseX::Storage::Deferred - A role for undecisive programmers
 
 =head1 SYNOPSIS
@@ -75,8 +74,6 @@ MooseX::Storage::Deferred - A role for undecisive programmers
   use Moose;
   use MooseX::Storage;
 
-  our $VERSION = '0.01';
-
   with 'MooseX::Storage::Deferred';
 
   has 'x' => (is => 'rw', isa => 'Int');
@@ -93,6 +90,9 @@ MooseX::Storage::Deferred - A role for undecisive programmers
   # 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 }',
@@ -114,6 +114,10 @@ SYNOPSIS for more info)
 
 =item I<JSON>
 
+=for stopwords JSONpm
+
+=item I<JSONpm>
+
 =item I<YAML>
 
 =item I<Storable>