X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FIO%2FStorableFile.pm;h=76896877f37328816d7c2031b9b7722a9ee02265;hb=81a523ba27fe312e8d52f275283a892542f79f68;hp=ab32bf2462d0a96a3d1814ca4f167c286de6bfa2;hpb=4fa64e865c99a6dcc3bec159a662300151d62fdf;p=gitmo%2FMooseX-Storage.git

diff --git a/lib/MooseX/Storage/IO/StorableFile.pm b/lib/MooseX/Storage/IO/StorableFile.pm
index ab32bf2..7689687 100644
--- a/lib/MooseX/Storage/IO/StorableFile.pm
+++ b/lib/MooseX/Storage/IO/StorableFile.pm
@@ -1,10 +1,9 @@
-
 package MooseX::Storage::IO::StorableFile;
 use Moose::Role;
 
 use Storable ();
 
-our $VERSION   = '0.01';
+our $VERSION   = '0.33';
 our $AUTHORITY = 'cpan:STEVAN';
 
 requires 'pack';
@@ -14,20 +13,22 @@ sub load {
     my ( $class, $filename, @args ) = @_;
     # try thawing
     return $class->thaw( Storable::retrieve($filename), @args )
-        if $class->can('thaw');        
+        if $class->can('thaw');
     # otherwise just unpack
     $class->unpack( Storable::retrieve($filename), @args );
 }
 
 sub store {
     my ( $self, $filename, @args ) = @_;
-    Storable::nstore( 
+    Storable::nstore(
         # try freezing, otherwise just pack
-        ($self->can('freeze') ? $self->freeze(@args) : $self->pack(@args)), 
-        $filename 
+        ($self->can('freeze') ? $self->freeze(@args) : $self->pack(@args)),
+        $filename
     );
 }
 
+no Moose::Role;
+
 1;
 
 __END__
@@ -43,37 +44,37 @@ MooseX::Storage::IO::StorableFile - An Storable File I/O role
   package Point;
   use Moose;
   use MooseX::Storage;
-  
+
   with Storage('io' => 'StorableFile');
-  
+
   has 'x' => (is => 'rw', isa => 'Int');
   has 'y' => (is => 'rw', isa => 'Int');
-  
+
   1;
-  
+
   my $p = Point->new(x => 10, y => 10);
-  
-  ## methods to load/store a class 
+
+  ## methods to load/store a class
   ## on the file system
-  
+
   $p->store('my_point');
-  
+
   my $p2 = Point->load('my_point');
 
 =head1 DESCRIPTION
 
-This module will C<load> and C<store> Moose classes using Storable. It 
-uses C<Storable::nstore> by default so that it can be easily used 
-across machines or just locally. 
+This module will C<load> and C<store> Moose classes using Storable. It
+uses C<Storable::nstore> by default so that it can be easily used
+across machines or just locally.
 
-One important thing to note is that this module does not mix well 
-with the other Format modules. Since Storable serialized perl data 
-structures in it's own format, those roles are lagely unnecessary. 
+One important thing to note is that this module does not mix well
+with the other Format modules. Since Storable serialized perl data
+structures in it's own format, those roles are lagely unnecessary.
 
-However, there is always the possibility that having a set of 
-C<freeze/thaw> hooks can be useful, so because of that this module 
+However, there is always the possibility that having a set of
+C<freeze/thaw> hooks can be useful, so because of that this module
 will attempt to use C<freeze> or C<thaw> if that method is available.
-Of course, you should be careful when doing this as it could lead to 
+Of course, you should be careful when doing this as it could lead to
 all sorts of hairy issues. But you have been warned.
 
 =head1 METHODS
@@ -96,7 +97,7 @@ all sorts of hairy issues. But you have been warned.
 
 =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.