X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=xs-src%2FMouseUtil.xs;h=4aa3c1cd81d160ed719886814b2f469291107f34;hp=dab290786f30f22bb46ec224c82968351b60c6a7;hb=016e46812a519214fa28c597955ceb0b0bccc43a;hpb=672bde7c9b3e68ea3aff3186eafb11b73e8e3d89 diff --git a/xs-src/MouseUtil.xs b/xs-src/MouseUtil.xs index dab2907..4aa3c1c 100644 --- a/xs-src/MouseUtil.xs +++ b/xs-src/MouseUtil.xs @@ -112,31 +112,6 @@ mouse_throw_error(SV* const metaobject, SV* const data /* not used */, const cha } } - -/* equivalent to "blessed($x) && $x->isa($klass)" */ -bool -mouse_is_instance_of(pTHX_ SV* const sv, SV* const klass){ - assert(sv); - assert(klass); - - if(IsObject(sv) && SvOK(klass)){ - bool ok; - - ENTER; - SAVETMPS; - - ok = SvTRUEx(mcall1s(sv, "isa", klass)); - - FREETMPS; - LEAVE; - - return ok; - } - - return FALSE; -} - - bool mouse_is_class_loaded(pTHX_ SV * const klass){ HV *stash;