X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FIO%2FAtomicFile.pm;h=7129367991a8295ecd58ac233697207d9624365c;hb=d3671a48f9673b8f5e74f9105b56406e4bfe5a6b;hp=8d29e1830ee7b0e2858be73704284f161f7d9afa;hpb=e64b730236154a4f45ace9db2bbf915bd91956f1;p=gitmo%2FMooseX-Storage.git diff --git a/lib/MooseX/Storage/IO/AtomicFile.pm b/lib/MooseX/Storage/IO/AtomicFile.pm index 8d29e18..7129367 100644 --- a/lib/MooseX/Storage/IO/AtomicFile.pm +++ b/lib/MooseX/Storage/IO/AtomicFile.pm @@ -1,4 +1,3 @@ - package MooseX::Storage::IO::AtomicFile; use Moose::Role; @@ -7,10 +6,12 @@ use MooseX::Storage::Engine::IO::AtomicFile; 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) ); } +no Moose::Role; + 1; __END__ @@ -19,11 +20,29 @@ __END__ =head1 NAME -MooseX::Storage::IO::AtomicFile +MooseX::Storage::IO::AtomicFile - An Atomic File I/O role =head1 SYNOPSIS -=head1 DESCRIPTION + package Point; + use Moose; + use MooseX::Storage; + + with Storage('format' => 'JSON', 'io' => 'AtomicFile'); + + 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 + ## on the file system + + $p->store('my_point.json'); + + my $p2 = Point->load('my_point.json'); =head1 METHODS @@ -45,7 +64,7 @@ MooseX::Storage::IO::AtomicFile =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. @@ -57,7 +76,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