X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Storage.git;a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FIO%2FStorableFile.pm;h=f5d2119c91a73380c462f182cb4d5f79c04486d7;hp=d859ae223088017d2c975c545211e6795ece87c2;hb=ec72518379c644ab85126ee0391773ee7028665c;hpb=99b6180c9ef7db26cb514bb6e305f73fbcbc588e

diff --git a/lib/MooseX/Storage/IO/StorableFile.pm b/lib/MooseX/Storage/IO/StorableFile.pm
index d859ae2..f5d2119 100644
--- a/lib/MooseX/Storage/IO/StorableFile.pm
+++ b/lib/MooseX/Storage/IO/StorableFile.pm
@@ -14,17 +14,17 @@ 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
     );
 }
 
@@ -43,37 +43,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 +96,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.