attributes attribute for Class::MOP::Instance

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index 451a5ee..50db76c 100644 (file)
--- 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 (file)
--- 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,