res = hv_exists(hv, "0", 1) && hv_iterinit(hv) == 1;
XSRETURN_IV(res);
+void
+list(SV *sv)
+PROTOTYPE: $
+PREINIT:
+ HV *hv;
+ IV res;
+CODE:
+ if (!SvOK(sv))
+ XSRETURN_IV(0);
+ if (!SvROK(sv)) {
+ res = strEQ(SvPV_nolen(sv), "list");
+ XSRETURN_IV(res);
+ }
+ hv = (HV *) SvRV(sv);
+ res = hv_exists(hv, "list", 4) && hv_iterinit(hv) == 1;
+ XSRETURN_IV(res);
+
void
count(SV *sv)
PROTOTYPE: $