From: Yuval Kogman <nothingmuch@woobling.org>
Date: Fri, 8 Aug 2008 23:45:00 +0000 (+0000)
Subject: attributes attribute for Class::MOP::Instance
X-Git-Tag: 0_64_01~66
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=32bfc8109f26b0852d44bd36c08c305720bebaa1;p=gitmo%2FClass-MOP.git

attributes attribute for Class::MOP::Instance
---

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index 451a5ee..50db76c 100644
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -727,6 +727,10 @@ Class::MOP::Instance->meta->add_attribute(
 );
 
 Class::MOP::Instance->meta->add_attribute(
+    Class::MOP::Attribute->new('attributes')
+);
+
+Class::MOP::Instance->meta->add_attribute(
     Class::MOP::Attribute->new('slots')
 );
 
diff --git a/lib/Class/MOP/Instance.pm b/lib/Class/MOP/Instance.pm
index 2d3079a..cccf41c 100644
--- a/lib/Class/MOP/Instance.pm
+++ b/lib/Class/MOP/Instance.pm
@@ -47,8 +47,9 @@ sub new {
         # assumption,.. but you can
         # never tell <:)
         'associated_metaclass' => $options->{associated_metaclass},
-        'slots'     => $options->{slots},
-        'slot_hash' => $options->{slot_hash},
+        'attributes' => $options->{attributes},
+        'slots'      => $options->{slots},
+        'slot_hash'  => $options->{slot_hash},
     } => $class;
 
     # FIXME weak_ref => 1,