return isa; /* returns the cache if available */
}
else{
- SvREADONLY_off(isa);
- av_clear(isa);
+ SvREFCNT_dec(isa);
+ GvAV(cachegv) = isa = newAV();
}
get_linear_isa = get_cv("Mouse::Util::get_linear_isa", TRUE);
avref = POPs;
PUTBACK;
- if(SvROK(avref) && SvTYPE(SvRV(avref)) == SVt_PVAV){
+ if(IsArrayRef(avref)){
AV* const av = (AV*)SvRV(avref);
I32 const len = AvFILLp(av) + 1;
I32 i;
}
sv_setiv(gen, (IV)mro_get_pkg_gen(stash));
- return GvAV(cachegv);
+ return isa;
}
#endif /* !no_mor_get_linear_isa */
return ret;
}
+SV*
+mouse_get_metaclass(pTHX_ SV* metaclass_name){
+ CV* const get_metaclass = get_cvs("Mouse::Util::get_metaclass_by_name", TRUE);
+ SV* metaclass;
+ dSP;
+
+ assert(metaclass_name);
+ if(IsObject(metaclass_name)){
+ HV* const stash = SvSTASH(metaclass_name);
+
+ metaclass_name = newSVpvn_share(HvNAME_get(stash), HvNAMELEN_get(stash), 0U);
+ sv_2mortal(metaclass_name);
+ }
+
+ PUSHMARK(SP);
+ XPUSHs(metaclass_name);
+ PUTBACK;
+
+ call_sv((SV*)get_metaclass, G_SCALAR);
+
+ SPAGAIN;
+ metaclass = POPs;
+ PUTBACK;
+
+ return metaclass;
+}
+
MAGIC*
mouse_mg_find(pTHX_ SV* const sv, const MGVTBL* const vtbl, I32 const flags){
MAGIC* mg;
return NULL;
}
+GV*
+mouse_stash_fetch(pTHX_ HV* const stash, const char* const name, I32 const namelen, I32 const create) {
+ GV** const gvp = (GV**)hv_fetch(stash, name, namelen, create);
+
+ if(gvp){
+ if(!isGV(*gvp)){
+ gv_init(*gvp, stash, name, namelen, GV_ADDMULTI);
+ }
+ return *gvp;
+ }
+ else{
+ return NULL;
+ }
+}
+
MODULE = Mouse::Util PACKAGE = Mouse::Util
PROTOTYPES: DISABLE
CODE:
{
HV* stash;
- HE* he;
+ STRLEN name_len;
+ const char* name_pv;
+ GV* gv;
if(!SvOK(package)){
croak("You must define a package name");
if(!stash){
XSRETURN_UNDEF;
}
- he = hv_fetch_ent(stash, name, FALSE, 0U);
- if(he){
- GV* const gv = (GV*)hv_iterval(stash, he);
- if(!isGV(gv)){ /* special constant or stub */
- STRLEN len;
- const char* const pv = SvPV_const(name, len);
- gv_init(gv, stash, pv, len, GV_ADDMULTI);
- }
- RETVAL = GvCVu(gv);
- }
- else{
- RETVAL = NULL;
- }
+
+ name_pv = SvPV_const(name, name_len);
+ gv = stash_fetch(stash, name_pv, name_len, FALSE);
+ RETVAL = gv ? GvCVu(gv) : NULL;
if(!RETVAL){
XSRETURN_UNDEF;