#serialize.pl
use strict;
use warnings;
use Storable;
use MooseClass;
use Data::Dumper;

my $obj = MooseClass->new(name=>'Eva',age=>'20',gender=>'girl');

print "\n Class dump \n", Dumper($obj);
$obj->increaseAge();
print "\n Class dump 2\n", Dumper($obj);

my $nextage = $obj->getAgeIterator();
$nextage->();
$nextage->();
print "\n Class dump 3\n", Dumper($obj);

#Lets serailize the $obj
store ($obj,'serialize.bin');

#Lets deserialize the object
#--------ONLY for Eclipse ----
#Just for the Perl Eclipse IDE to auto complete $self variable
#$newObj = MooseClass->new();
#--------ONLY for Eclipse ----

my $newObj = retrieve ('serialize.bin');

print "\n \n New Class dump1 \n", Dumper($newObj);

$newObj->increaseAge();

print "\n \n New Class dump2 \n", Dumper($newObj);

my $newnextAge = $newObj->getAgeIterator();
$newnextAge->();
$newnextAge->();

print "\n \n New Class dump3 \n", Dumper($newObj);