From: gfx <gfuji@cpan.org>
Date: Tue, 6 Jul 2010 09:59:27 +0000 (+0900)
Subject: Add __set_strict_constructor
X-Git-Tag: 0.62~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3a2ccd7713de9817b51e135f9e7c5b1b91ce8772;p=gitmo%2FMouse.git

Add __set_strict_constructor
---

diff --git a/mouse.h b/mouse.h
index a30d537..8764f8a 100644
--- a/mouse.h
+++ b/mouse.h
@@ -181,7 +181,6 @@ void mouse_instance_weaken_slot(pTHX_ SV* const instance, SV* const slot);
 
 CV* mouse_simple_accessor_generate(pTHX_ const char* const fq_name, const char* const key, I32 const keylen, XSUBADDR_t const accessor_impl, void* const dptr, I32 const dlen);
 
-XS(XS_Mouse_simple_accessor);
 XS(XS_Mouse_simple_reader);
 XS(XS_Mouse_simple_writer);
 XS(XS_Mouse_simple_clearer);
diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs
index 19d98c6..092d6cc 100644
--- a/xs-src/Mouse.xs
+++ b/xs-src/Mouse.xs
@@ -524,7 +524,9 @@ BOOT:
     INSTALL_SIMPLE_READER(Class, roles);
     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Class, is_anon_class, anon_serial_id);
     INSTALL_SIMPLE_READER(Class, is_immutable);
-    INSTALL_SIMPLE_READER_WITH_KEY(Class, __strict_constructor, strict_constructor);
+
+    INSTALL_SIMPLE_READER_WITH_KEY(Class, __strict_constructor,     strict_constructor);
+    INSTALL_SIMPLE_WRITER_WITH_KEY(Class, __set_strict_constructor, strict_constructor);
 
     INSTALL_CLASS_HOLDER(Class, method_metaclass,     "Mouse::Meta::Method");
     INSTALL_CLASS_HOLDER(Class, attribute_metaclass,  "Mouse::Meta::Attribute");
@@ -536,7 +538,6 @@ BOOT:
     newCONSTSUB(gv_stashpvs("Mouse::Meta::Method::Destructor::XS", TRUE), "_generate_destructor",
         newRV_inc((SV*)get_cvs("Mouse::Object::DESTROY", TRUE)));
 
-
 void
 linearized_isa(SV* self)
 PPCODE: