X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FIO%2FAtomicFile.pm;h=f93225410968d21b6616cb8d6c16fb15244170fb;hb=bf33d7c7a646b2ddc69b7f662e91ebb001f4ff37;hp=50977cedf2705240b956a97084b6f9c3ae3e0025;hpb=7b428d1fd844e32dc3500a1fefc6cd794dc45fc8;p=gitmo%2FMooseX-Storage.git diff --git a/lib/MooseX/Storage/IO/AtomicFile.pm b/lib/MooseX/Storage/IO/AtomicFile.pm index 50977ce..f932254 100644 --- a/lib/MooseX/Storage/IO/AtomicFile.pm +++ b/lib/MooseX/Storage/IO/AtomicFile.pm @@ -4,13 +4,14 @@ use Moose::Role; use MooseX::Storage::Engine::IO::AtomicFile; -our $VERSION = '0.01'; +our $VERSION = '0.01'; +our $AUTHORITY = 'cpan:STEVAN'; with 'MooseX::Storage::IO::File'; sub store { - my ( $self, $filename ) = @_; - MooseX::Storage::Engine::IO::AtomicFile->new( file => $filename )->store( $self->freeze() ); + my ( $self, $filename, @args ) = @_; + MooseX::Storage::Engine::IO::AtomicFile->new( file => $filename )->store( $self->freeze(@args) ); } 1; @@ -77,7 +78,7 @@ Stevan Little Estevan.little@iinteractive.comE =head1 COPYRIGHT AND LICENSE -Copyright 2007 by Infinity Interactive, Inc. +Copyright 2007-2008 by Infinity Interactive, Inc. L