Select Code to Download

void
GetOLE (container)
...
    }
  }
}

SV *
...
    return sv_2mortal(sv_bless(newRV_noinc((SV*)pObj->self), stash));

}   /* CreatePerlObject */