[Moose-commits] r7171 - Class-MOP/trunk

[rafl at code2.0beta.co.uk]

Author: rafl
Date: 2008-12-22 12:06:36 -0800 (Mon, 22 Dec 2008)
New Revision: 7171

Modified:
   Class-MOP/trunk/MOP.xs
Log:
Add an xs implementation of Class::MOP::is_class_loaded.

Based on patch by Goro Fuji <gfuji at cpan.org> (RT#41862).

Modified: Class-MOP/trunk/MOP.xs
===================================================================
--- Class-MOP/trunk/MOP.xs	2008-12-22 13:34:58 UTC (rev 7170)
+++ Class-MOP/trunk/MOP.xs	2008-12-22 20:06:36 UTC (rev 7171)
@@ -339,9 +339,61 @@
             PUSHs(newSVpv(name, 0));
         }
 
+PROTOTYPES: DISABLE
 
+void
+is_class_loaded(klass=&PL_sv_undef)
+    SV *klass
+    PREINIT:
+        HV *stash;
+        char *key;
+        I32 keylen;
+        GV *gv;
+    PPCODE:
+        if (!SvPOK(klass) || !SvCUR(klass)) {
+            XSRETURN_NO;
+        }
+
+        stash = gv_stashsv(klass, 0);
+        if (!stash) {
+            XSRETURN_NO;
+        }
+
+        if (hv_exists (stash, "VERSION", 7)) {
+            SV **version = hv_fetch(stash, "VERSION", 7, 0);
+            if (version && *version && GvSV(*version)) {
+                XSRETURN_YES;
+            }
+        }
+
+        if (hv_exists (stash, "ISA", 3)) {
+            SV **isa = hv_fetch(stash, "ISA", 3, 0);
+            if (isa && *isa && GvAV(*isa)) {
+                XSRETURN_YES;
+            }
+        }
+
+        (void)hv_iterinit(stash);
+        while (gv = (GV *)hv_iternextsv(stash, &key, &keylen)) {
+            if (keylen <= 0) {
+                continue;
+            }
+
+            if (key[keylen - 1] == ':' && key[keylen - 2] == ':') {
+                continue;
+            }
+
+            if (!isGV(gv) || GvCV(gv) || GvSV(gv) || GvAV(gv) || GvHV(gv) || GvIO(gv) || GvFORM(gv)) {
+                XSRETURN_YES;
+            }
+        }
+
+        XSRETURN_NO;
+
 MODULE = Class::MOP   PACKAGE = Class::MOP::Package
 
+PROTOTYPES: ENABLE
+
 void
 get_all_package_symbols(self, filter=TYPE_FILTER_NONE)
     SV *self