Select Code to Download

SV * newSVObj(void *object, char * classname)
{
...

    return result;
}

SV * newSVEtkButtonPtr(Etk_Button *o) { 
         return newSVObj(o, "Etk::Button"); 
}

   PUSHMARK(SP) ;
   XPUSHs(sv_2mortal(newSVsv(cbd->perl_object))); // self
...
   PUTBACK ;
      
   call_sv(cbd->perl_callback, G_DISCARD);