MooseX::Storage

• serialize and store classes

package Point;
use Moose;
use MooseX::Storage;

our $VERSION = '0.01';

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);

• Flattening

$p->pack(); # { __CLASS__ => 'Point-0.01', x => 10, y => 10 }
my $p2 = Point->unpack({ __CLASS__ => 'Point-0.01', x => 10, y => 10 });

• Serialization

$p->freeze(); # { "__CLASS__" : "Point-0.01", "x" : 10, "y" : 10 }
my $p2 = Point->thaw('{ "__CLASS__" : "Point-0.01", "x" : 10, "y" : 10 }');

• IO

$p->store('my_point.json');
my $p2 = Point->load('my_point.json');

• MooseX::Storage::Directory for a quick object database