view release on metacpan or  search on metacpan

lib/Scope/Escape.xs  view on Meta::CPAN

CODE:
#if CATCHER_USES_GHOST_JMPENV
	cxstack_max = cxstack_ix;
#endif /* CATCHER_USES_GHOST_JMPENV */

MODULE = Scope::Escape PACKAGE = Scope::Escape::Continuation

void
go(SV *contref, ...)
PROTOTYPE: $@
PPCODE:
	PUSHMARK(SP+1);
	/* the modified SP is intentionally lost here */
	THX_xsfunc_go(aTHX_ contsub_from_contref(contref));
	/* does not return */

SV *
wantarray(SV *contref)
PROTOTYPE: $
CODE:
	switch(cont_status(contgut_from_contref(contref), G_WANT) & G_WANT) {