lib/MooseX/Storage/IO/File.pm

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