slotnames

[gitmo/Class-MOP.git] / lib / Class / MOP / Instance.pm

diff --git a/lib/Class/MOP/Instance.pm b/lib/Class/MOP/Instance.pm
index b8e2450..d7bb7fb 100644 (file)
--- a/lib/Class/MOP/Instance.pm
+++ b/lib/Class/MOP/Instance.pm
@@ -16,7 +16,7 @@ sub meta {
 
 sub new { 
     my ($class, $meta, @attrs) = @_;
-    my @slots = map { $_->name } @attrs;
+    my @slots = map { $_->slots } @attrs;
     bless {
         # NOTE:
         # I am not sure that it makes