Mo.pm

package Mo;
$VERSION=0.25;
no warnings;my$K=__PACKAGE__.::;*{$K.Object::new}=sub{bless{@_[1..$#_]},$_[0]};*{$K.import}=sub{import warnings;$^H|=1538;my$P=caller.::;my%e=(extends,sub{eval"no $_[0]()";@{$P.ISA}=$_[0]},has,sub{my$n=shift;*{$P.$n}=sub{$#_?$_[0]{$n}=$_[1]:$_[0]{$n}}},);shift;eval"no Mo::$_",%e=&{$K.$_.::e}($P,%e)for@_;*{$P.$_}=$e{$_}for keys%e;@{$P.ISA}=$K.Object};