X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=xs-src%2FMouse.xs;h=4a00765f889bc2068628d4b839f0a8e8ec325073;hp=d5e784212bca9adc647b8f3b3305298093933df2;hb=2591e962421f07deae90d93875aa129c57d841af;hpb=431657256f423bda264c0cb76c28de72fd879b20

diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs
index d5e7842..4a00765 100644
--- a/xs-src/Mouse.xs
+++ b/xs-src/Mouse.xs
@@ -40,6 +40,19 @@ BOOT:
     INSTALL_SIMPLE_READER_WITH_KEY(Module, _method_map, methods);
     INSTALL_SIMPLE_READER_WITH_KEY(Module, _attribute_map, attributes);
 
+HV*
+namespace(HV* self)
+CODE:
+{
+    SV** svp = hv_fetchs(self, "package", FALSE);
+    if(!(svp && SvOK(*svp))){
+        croak("No package name");
+    }
+    RETVAL = gv_stashsv(*svp, GV_ADDMULTI);
+}
+OUTPUT:
+    RETVAL
+
 MODULE = Mouse  PACKAGE = Mouse::Meta::Class
 
 BOOT: