view release on metacpan or  search on metacpan

StringFormat.xs  view on Meta::CPAN

_enter(...)
CODE:
	PERL_UNUSED_ARG(items);
	if(sf_depth == 0){
		sf_old_ck_modulo = PL_check[OP_MODULO];
		PL_check[OP_MODULO] = sf_ck_modulo;
	}
	sf_depth++;
	RETVAL = newSV(0);
	sv_setref_uv(RETVAL, HINT_KEY, sf_depth);
OUTPUT:
	RETVAL

void
DESTROY(...)
CODE:
	PERL_UNUSED_ARG(items);
	if(sf_depth == 0){
		Perl_croak(aTHX_ "panic: %s scope underflow", HINT_KEY);
	}
	if(sf_depth == 1){