Generating the code
 
 
- Corresponding generated C code
  XS(XS_Oracle__OCI_OCICollSize)
	    Perl_croak(aTHX_ "Usage: Oracle::OCI::OCICollSize(env, err, coll, size)");
	OCIEnv *   env = ora_getptr_OCIEnvPtr(ST(0), "env", "OCIEnvPtr", "OCICollSize");
	OCIError * err = ora_getptr_OCIErrorPtr(ST(1), "err", "OCIErrorPtr", "OCICollSize");
	OCIColl *  coll = ora_getptr_OCICollPtr(ST(2), "coll", "OCICollPtr", "OCICollSize");
	sb4	size = (sb4)SvIV(ST(3));
	RETVAL = OCICollSize(env, err, coll, &size);
	sv_setiv(ST(3), (IV)size);
	XSprePUSH; PUSHi((IV)RETVAL);