Select Code to Download

package Exp;

...
    push @{ $self->{ stored } }, new( $it );  # <---here NOT OK    
}
1;

# croaks without arguments

...

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

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

No arg! at -e line 1.

package ExpOk;

...
}
1;

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

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