view release on metacpan or  search on metacpan

Override.xs  view on Meta::CPAN

PROTOTYPES: ENABLE

void
array_each(sv)
    SV *sv
PROTOTYPE: \[@%]
PREINIT:
    int i;
    AV *av;
PPCODE:
    if (!SvROK(sv))
        croak("Argument to Array::Each::Override::array_each must be a reference");
    sv = SvRV(sv);
    if (SvTYPE(sv) == SVt_PVHV) {
        HV *hv = (HV *) sv;
        HE *entry;
        const I32 gimme = GIMME_V;

        /* PUTBACK; */
        entry = hv_iternext(hv);

Override.xs  view on Meta::CPAN

    }
    XSRETURN_EMPTY;

void
array_keys(sv)
    SV *sv
PROTOTYPE: \[@%]
PREINIT:
    int i;
    AV *av;
PPCODE:
    if (!SvROK(sv))
        croak("Argument to Array::Each::Override::array_keys must be a reference");
    sv = SvRV(sv);
    if (SvTYPE(sv) == SVt_PVHV) {
        HV *hv = (HV *) sv;
        HE *entry;
        const I32 gimme = GIMME_V;

        hv_iterinit(hv);

Override.xs  view on Meta::CPAN

        }
   }

void
array_values(sv)
    SV *sv
PROTOTYPE: \[@%]
PREINIT:
    int i;
    AV *av;
PPCODE:
    if (!SvROK(sv))
        croak("Argument to Array::Each::Override::array_values must be a reference");
    sv = SvRV(sv);
    if (SvTYPE(sv) == SVt_PVHV) {
        HV *const hv = (HV *) sv;
        HV *keys;
        HE *entry;
        const I32 gimme = GIMME_V;

        keys = hv;