X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=mouse.h;h=66c4735c6e14499f653c4d6733f4107edbe18d46;hp=a86c32fcadbea404eab7684b25d310bf5295d691;hb=016e46812a519214fa28c597955ceb0b0bccc43a;hpb=672bde7c9b3e68ea3aff3186eafb11b73e8e3d89 diff --git a/mouse.h b/mouse.h index a86c32f..66c4735 100644 --- a/mouse.h +++ b/mouse.h @@ -57,8 +57,7 @@ mouse_throw_error(SV* const metaobject, SV* const data /* not used */, const cha #define is_class_loaded(sv) mouse_is_class_loaded(aTHX_ sv) bool mouse_is_class_loaded(pTHX_ SV*); -#define is_instance_of(sv, klass) mouse_is_instance_of(aTHX_ sv, klass) -bool mouse_is_instance_of(pTHX_ SV* const sv, SV* const klass); +#define is_an_instance_of(klass, sv) mouse_is_an_instance_of(aTHX_ gv_stashpvs(klass, GV_ADD), (sv)) #define IsObject(sv) (SvROK(sv) && SvOBJECT(SvRV(sv))) @@ -178,6 +177,8 @@ int mouse_tc_Object (pTHX_ SV* const sv); CV* mouse_generate_isa_predicate_for(pTHX_ SV* const klass, const char* const predicate_name); +int mouse_is_an_instance_of(pTHX_ HV* const stash, SV* const instance); + XS(XS_Mouse_parameterized_check); #endif /* !MOUSE_H */