X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FIO%2FFile.pm;h=44dc916d51fc5dea6f49bd64379402b59571df83;hb=3e13f37e59d9e944364e51af35894a1dc744bc81;hp=cbff2d00f41dbfa3311bd6f4599ac228267d931a;hpb=7b428d1fd844e32dc3500a1fefc6cd794dc45fc8;p=gitmo%2FMooseX-Storage.git diff --git a/lib/MooseX/Storage/IO/File.pm b/lib/MooseX/Storage/IO/File.pm index cbff2d0..44dc916 100644 --- a/lib/MooseX/Storage/IO/File.pm +++ b/lib/MooseX/Storage/IO/File.pm @@ -1,24 +1,26 @@ - package MooseX::Storage::IO::File; use Moose::Role; use MooseX::Storage::Engine::IO::File; -our $VERSION = '0.01'; +our $VERSION = '0.30'; +our $AUTHORITY = 'cpan:STEVAN'; requires 'thaw'; requires 'freeze'; sub load { - my ( $class, $filename ) = @_; - $class->thaw( MooseX::Storage::Engine::IO::File->new( file => $filename )->load() ); + my ( $class, $filename, @args ) = @_; + $class->thaw( MooseX::Storage::Engine::IO::File->new( file => $filename )->load(), @args ); } sub store { - my ( $self, $filename ) = @_; - MooseX::Storage::Engine::IO::File->new( file => $filename )->store( $self->freeze() ); + my ( $self, $filename, @args ) = @_; + MooseX::Storage::Engine::IO::File->new( file => $filename )->store( $self->freeze(@args) ); } +no Moose::Role; + 1; __END__ @@ -27,28 +29,28 @@ __END__ =head1 NAME -MooseX::Storage::IO::File +MooseX::Storage::IO::File - A basic File I/O role =head1 SYNOPSIS package Point; use Moose; use MooseX::Storage; - + with Storage('format' => 'JSON', 'io' => 'File'); - + 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 @@ -71,7 +73,7 @@ MooseX::Storage::IO::File =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. @@ -83,7 +85,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