view release on metacpan or  search on metacpan

Name.xs  view on Meta::CPAN

	CV *cv = NULL;
	GV *gv;
	HV *stash = CopSTASH(PL_curcop);
	const char *s, *end = NULL, *begin = NULL;
	MAGIC *mg;
	STRLEN namelen;
	const char* nameptr = SvPV(name, namelen);
	int utf8flag = SvUTF8(name);
	int quotes_seen = 0;
	bool need_subst = FALSE;
    PPCODE:
	if (!SvROK(sub) && SvGMAGICAL(sub))
		mg_get(sub);
	if (SvROK(sub))
		cv = (CV *) SvRV(sub);
	else if (SvTYPE(sub) == SVt_PVGV)
		cv = GvCVu(sub);
	else if (!SvOK(sub))
		croak(PL_no_usym, "a subroutine");
	else if (PL_op->op_private & HINT_STRICT_REFS)
		croak("Can't use string (\"%.32s\") as %s ref while \"strict refs\" in use",