view release on metacpan or  search on metacpan

RequireModule.xs  view on Meta::CPAN

_enter(...)
CODE:
	PERL_UNUSED_ARG(items);
	if(my_depth == 0){
		my_old_ck_require = PL_check[OP_REQUIRE];
		PL_check[OP_REQUIRE] = my_ck_require;
	}
	my_depth++;
	RETVAL = newSV(0);
	sv_setref_uv(RETVAL, HINT_KEY, my_depth);
OUTPUT:
	RETVAL

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