my module DefinedBySMOP;
my enum Bool <False True>;
my class MildewSOLoader { }
my class AdhocSignature { }
my class LexicalScope { }
my class ControlExceptionReturn { }
my class Scalar { }
my class Hash { }
my class Package { }
my class Array { }
my $OUT; #HACK as we don't support $*OUT yet
my $LexicalPrelude; #HACK
my module PRIMITIVES {
sub int_add { }
sub int_equal { }
sub int_less { }
sub int_substract { }
sub idconst_concat { }
sub idconst_eq { }
sub get_interpreter { }
sub storage_name { }
sub ritest { }
sub pointer_equal { }
sub SMOP_RI { }
sub dump_print($obj,$template) {}
}
my module EXTERNAL {
sub eval_perl5($code) {}
}
{YOU_ARE_HERE};