-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_iterinit(hv) == 1 && hv_exists(hv, "list", 4);
- XSRETURN_IV(res);
-