#include "mouse.h"
+#define MY_CXT_KEY "Mouse::Util::_guts" XS_VERSION
+typedef struct {
+ HV* metas;
+} my_cxt_t;
+START_MY_CXT
+
#define ISA_CACHE "::LINEALIZED_ISA_CACHE::"
#ifdef no_mro_get_linear_isa
}
-SV *
-mouse_call0 (pTHX_ SV *const self, SV *const method)
-{
+SV*
+mouse_call0 (pTHX_ SV* const self, SV* const method) {
dSP;
SV *ret;
return ret;
}
-SV *
-mouse_call1 (pTHX_ SV *const self, SV *const method, SV* const arg1)
-{
+SV*
+mouse_call1 (pTHX_ SV* const self, SV* const method, SV* const arg1) {
dSP;
SV *ret;
return ret;
}
+int
+mouse_predicate_call(pTHX_ SV* const self, SV* const method) {
+ SV* const value = mcall0(self, method);
+ return SvTRUE(value);
+}
+
SV*
mouse_get_metaclass(pTHX_ SV* metaclass_name){
- CV* const get_metaclass = get_cvs("Mouse::Util::get_metaclass_by_name", TRUE);
- SV* metaclass;
- dSP;
+ dMY_CXT;
+ HE* he;
assert(metaclass_name);
+ assert(MY_CXT.metas);
+
if(IsObject(metaclass_name)){
- HV* const stash = SvSTASH(metaclass_name);
+ HV* const stash = SvSTASH(SvRV(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;
+ he = hv_fetch_ent(MY_CXT.metas, metaclass_name, FALSE, 0U);
- return metaclass;
+ return he ? HeVAL(he) : &PL_sv_undef;
}
MAGIC*
PROTOTYPES: DISABLE
VERSIONCHECK: DISABLE
+BOOT:
+{
+ MY_CXT_INIT;
+ MY_CXT.metas = NULL;
+}
+
+void
+__register_metaclass_storage(HV* metas, bool cloning)
+CODE:
+{
+ if(cloning){
+ MY_CXT_CLONE;
+ MY_CXT.metas = NULL;
+ }
+ {
+ dMY_CXT;
+ if(MY_CXT.metas) croak("Cannot set metaclass storage more than once");
+ MY_CXT.metas = metas;
+ SvREFCNT_inc_simple_void_NN(metas);
+ }
+}
+
bool
is_class_loaded(SV* sv)
RETVAL
void
-generate_isa_predicate_for(SV* klass, SV* predicate_name = NULL)
+generate_isa_predicate_for(SV* arg, SV* predicate_name = NULL)
+ALIAS:
+ generate_isa_predicate_for = 0
+ generate_can_predicate_for = 1
PPCODE:
{
const char* name_pv = NULL;
CV* xsub;
- SvGETMAGIC(klass);
+ SvGETMAGIC(arg);
- if(!SvOK(klass)){
- croak("You must define a class name");
+ if(!SvOK(arg)){
+ croak("You must define %s", ix == 0 ? "a class name" : "method names");
}
if(predicate_name){
SvGETMAGIC(predicate_name);
if(!SvOK(predicate_name)){
- croak("You must define a predicate_name");
+ croak("You must define %s", "a predicate name");
}
name_pv = SvPV_nolen_const(predicate_name);
}
- xsub = mouse_generate_isa_predicate_for(aTHX_ klass, name_pv);
+ if(ix == 0){
+ xsub = mouse_generate_isa_predicate_for(aTHX_ arg, name_pv);
+ }
+ else{
+ xsub = mouse_generate_can_predicate_for(aTHX_ arg, name_pv);
+ }
if(predicate_name == NULL){ /* anonymous predicate */
XPUSHs( newRV_noinc((SV*)xsub) );