moosex-storage.pl

package App::Person;
use Moose;
use MooseX::Storage;

with Storage (format => 'JSON', io => 'File');

has ['firstname', 'lastname'] => ( isa => 'Str' , is => 'rw' );

package main;

use Data::Dump 'dump';

my $person = App::Person->new(firstname => 'Mikhail', lastname => 'Maluyk');

my $data = $person->pack;
dump $data;

$person->store('person.json');