Pure Perl accessors into XS

[gitmo/Class-MOP.git] / xs / Method.xs

diff --git a/xs/Method.xs b/xs/Method.xs
index 02a5f5c..90c3e9f 100644 (file)
--- a/xs/Method.xs
+++ b/xs/Method.xs
@@ -12,3 +12,20 @@ BOOT:
     INSTALL_SIMPLE_READER(Method, original_method);
 
     INSTALL_SIMPLE_WRITER_WITH_KEY(Method, _set_original_method, original_method);
+
+MODULE = Class::MOP::Method   PACKAGE = Class::MOP::Method::Constructor
+
+BOOT:
+    INSTALL_SIMPLE_READER(Method::Constructor, options);
+    INSTALL_SIMPLE_READER(Method::Constructor, associated_metaclass);
+
+MODULE = Class::MOP::Method   PACKAGE = Class::MOP::Method::Generated
+
+BOOT:
+    INSTALL_SIMPLE_READER(Method::Generated, is_inline);
+    INSTALL_SIMPLE_READER(Method::Generated, definition_context);
+
+MODULE = Class::MOP::Method   PACKAGE = Class::MOP::Method::Inlined
+
+BOOT:
+    INSTALL_SIMPLE_READER(Method::Inlined, _expected_method_class);