ST(0) = sv_2mortal(newSVuv(o == NULL));
XSRETURN(1);
+void
+count(SV *sv)
+PROTOTYPE: $
+PREINIT:
+ HV *hv;
+ HE *key;
+ NV c = 0;
+CODE:
+ if (!SvOK(sv))
+ XSRETURN_IV(0);
+ if (!SvROK(sv))
+ XSRETURN_IV(1);
+ hv = (HV *) SvRV(sv);
+ hv_iterinit(hv);
+ while (key = hv_iternext(hv)) {
+ c += SvNV(HeVAL(key));
+ }
+ XSRETURN_NV(c);
+
void
scalops()
PROTOTYPE: