return (*name && gv_stashpv(name, FALSE)) ? 1 : 0;
SV **svp; int len; char *filename = package2filename(name, &len); svp = hv_fetch(GvHVn(PL_incgv), filename, len, 0); free(filename);  return (svp && *svp != &PL_sv_undef) ? 1 : 0;
MP_INLINE int modperl_perl_module_loaded(pTHX_ const char *name){    return (*name && gv_stashpv(name, FALSE)) ? 1 : 0;}