sub make_byteObject {
   # Trivial example -- the real one was about 50,000 lines.
   my $byteobj = bless( {
     'one' => 1
   }, 'byteObject' );
}

##</code><code>##

do "bytecode";
my $obj = make_byteObject();