X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FIO%2FStorableFile.pm;h=18d0907aa0d29577b95befbe7cf7880aac052a3c;hb=e44b5f5498b782752d2c91b6796698c86143a2f0;hp=eb5d5af76529a606f57c4d63a14dd9c96ce355ab;hpb=124c2ba5bd480a26d5ae91767b7943024ba4ea15;p=gitmo%2FMooseX-Storage.git

diff --git a/lib/MooseX/Storage/IO/StorableFile.pm b/lib/MooseX/Storage/IO/StorableFile.pm
index eb5d5af..18d0907 100644
--- a/lib/MooseX/Storage/IO/StorableFile.pm
+++ b/lib/MooseX/Storage/IO/StorableFile.pm
@@ -1,33 +1,34 @@
-
 package MooseX::Storage::IO::StorableFile;
 use Moose::Role;
 
 use Storable ();
 
-our $VERSION   = '0.01';
+our $VERSION   = '0.32';
 our $AUTHORITY = 'cpan:STEVAN';
 
 requires 'pack';
 requires 'unpack';
 
 sub load {
-    my ( $class, $filename ) = @_;
+    my ( $class, $filename, @args ) = @_;
     # try thawing
-    return $class->thaw( Storable::retrieve($filename) )
-        if $class->can('thaw');        
+    return $class->thaw( Storable::retrieve($filename), @args )
+        if $class->can('thaw');
     # otherwise just unpack
-    $class->unpack( Storable::retrieve($filename) );
+    $class->unpack( Storable::retrieve($filename), @args );
 }
 
 sub store {
-    my ( $self, $filename ) = @_;
-    Storable::nstore( 
+    my ( $self, $filename, @args ) = @_;
+    Storable::nstore(
         # try freezing, otherwise just pack
-        ($self->can('freeze') ? $self->freeze() : $self->pack()), 
-        $filename 
+        ($self->can('freeze') ? $self->freeze(@args) : $self->pack(@args)),
+        $filename
     );
 }
 
+no Moose::Role;
+
 1;
 
 __END__
@@ -36,44 +37,44 @@ __END__
 
 =head1 NAME
 
-MooseX::Storage::IO::StorableFile
+MooseX::Storage::IO::StorableFile - An Storable File I/O role
 
 =head1 SYNOPSIS
 
   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.
 
@@ -106,7 +107,7 @@ Stevan Little E<lt>stevan.little@iinteractive.comE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2007 by Infinity Interactive, Inc.
+Copyright 2007-2008 by Infinity Interactive, Inc.
 
 L<http://www.iinteractive.com>