obj_ref = sv_setref_pv(newSViv(0), class, (void *)soldier);
   SvREADONLY_on(SvRV(obj_ref));
   return obj_ref;