view release on metacpan or  search on metacpan

lib/Future/Batch/XS.xs  view on Meta::CPAN

        state->result_future = newSVsv(POPs);
        PUTBACK; FREETMPS; LEAVE;
        
        /* Create state object */
        state_sv = new_state_sv(aTHX_ state);
        
        /* Run the batch - fully in XS! */
        run_loop(aTHX_ state_sv);
        
        RETVAL = newSVsv(state->result_future);
        /* Don't dec state_sv - callbacks hold copies that keep it alive */
        /* It will be freed when all callbacks complete and are GC'd */
    }
OUTPUT:
    RETVAL

SV *
batch(...)
PREINIT:
    dSP;
    SV *obj;