view release on metacpan or  search on metacpan

XS.xs  view on Meta::CPAN

product (code, ...)
    SV *code
PROTOTYPE: &@
PREINIT:
    int i, j, *idx;
    AV **in;
    SV **out;
    CV *cv;
    HV *stash;
    GV *gv;
PPCODE:
    cv = sv_2cv(code, &stash, &gv, 0);
    if (! cv)
      croak("Not a subroutine reference");

    if (2 > items)
        XSRETURN_UNDEF;

    items--;
    for (i = items; i > 0; i--) {
        SvGETMAGIC(ST(i));