X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FIO%2FAtomicFile.pm;h=efd41dcdaee1136b98cd850fe0b88892f55c1aa9;hb=e44b5f5498b782752d2c91b6796698c86143a2f0;hp=e1c4b0dbf97ba24b4ecfa9da2242a820badf10da;hpb=f4ffa4ef5e4cb4a1a43caf932db1b3478abe7b87;p=gitmo%2FMooseX-Storage.git diff --git a/lib/MooseX/Storage/IO/AtomicFile.pm b/lib/MooseX/Storage/IO/AtomicFile.pm index e1c4b0d..efd41dc 100644 --- a/lib/MooseX/Storage/IO/AtomicFile.pm +++ b/lib/MooseX/Storage/IO/AtomicFile.pm @@ -1,10 +1,9 @@ - package MooseX::Storage::IO::AtomicFile; use Moose::Role; use MooseX::Storage::Engine::IO::AtomicFile; -our $VERSION = '0.17'; +our $VERSION = '0.32'; our $AUTHORITY = 'cpan:STEVAN'; with 'MooseX::Storage::IO::File'; @@ -14,6 +13,8 @@ sub store { MooseX::Storage::Engine::IO::AtomicFile->new( file => $filename )->store( $self->freeze(@args) ); } +no Moose::Role; + 1; __END__ @@ -29,21 +30,21 @@ MooseX::Storage::IO::AtomicFile - An Atomic File I/O role 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 + + ## methods to load/store a class ## on the file system - + $p->store('my_point.json'); - + my $p2 = Point->load('my_point.json'); =head1 METHODS @@ -66,7 +67,7 @@ MooseX::Storage::IO::AtomicFile - An Atomic File I/O role =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.