perl -I . -MData::Dump -MExpOk -e " $exp=ExpOk->new(2); $exp->store(3); dd $exp "

bless({ stored => [bless({ validated => 3 }, "ExpOk")], validated => 2 }, "ExpOk")