gistfile1.txt

OUTPUT

# The Perl object is blessed into 'CLASS', which should be a
# char* having the name of the package for the blessing.
O_OBJECT
        void*[] pointers = malloc(2 * sizeof(void*));
        pointers[0] = (void*)$var;
        pointers[1] = (void*)my_perl;
	sv_setref_pv( $arg, CLASS, (void*)pointers );


INPUT

O_OBJECT
	if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) ) {
           void*[] pointers = ($type)SvIV((SV*)SvRV( $arg )); 
           $var = pointers[0];
        } else if ($arg == 0) {
           XSRETURN(0);
        } else {
           XSRETURN_UNDEF;
        }