lib/MooseX/Storage/IO/File.pm

   1
   2 package MooseX::Storage::IO::File;
   3 use Moose::Role;
   4
   5 use MooseX::Storage::Engine::IO::File;
   6
   7 requires 'thaw';
   8 requires 'freeze';
   9
  10 sub load {
  11     my ( $class, $filename ) = @_;
  12     $class->thaw( MooseX::Storage::Engine::IO::File->new( file => $filename )->load() );
  13 }
  14
  15 sub store {
  16     my ( $self, $filename ) = @_;
  17     MooseX::Storage::Engine::IO::File->new( file => $filename )->store( $self->freeze() );
  18 }
  19
  20 1;
  21
  22 __END__
  23
  24 =pod
  25
  26 =cut
  27