SV = RV(0xa88ae8) at 0xa88adc
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0xa889bc
  SV = PVMG(0x253aedc) at 0xa889bc
    REFCNT = 1
    FLAGS = (OBJECT,IOK,READONLY,OVERLOAD,pIOK)
    IV = 41565372
    NV = 0
    PV = 0
    STASH = 0x97dea4    "Math::MPFR"

##</code><code>##

SV * Rmpc_realref(mpc_t *op) {
     mpfr_t * mpfr_t_obj;
     SV * obj_ref, * obj;

     New(42, mpfr_t_obj, 1, mpfr_t);
     if(mpfr_t_obj == NULL) croak("Failed to allocate memory in Rmpc_realref function");

     obj_ref = newSV(0);
     obj = newSVrv(obj_ref, "Math::MPFR");

     mpfr_t_obj = mpc_realref(*op);

     sv_setiv(obj, INT2PTR(IV,mpfr_t_obj));
     SvREADONLY_on(obj);
     return obj_ref;
}

##</code><code>##

void DESTROY(mpfr_t * op) {
     if(the TEMP flag is present) {do one thing}
     else {do the other thing}
}