done

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

diff --git a/lib/Class/MOP/Instance.pm b/lib/Class/MOP/Instance.pm
index b6d6435..10a112d 100644 (file)
--- a/lib/Class/MOP/Instance.pm
+++ b/lib/Class/MOP/Instance.pm
@@ -15,24 +15,14 @@ sub meta {
 }
 
 sub new { 
-    my ($class, $meta) = @_;
-    my $slots = $class->_compute_slot_list_from_class($meta);
+    my ($class, $meta, @attrs) = @_;
+    my @slots = map { $_->name } @attrs;
     bless {
         meta  => $meta,
-        slots => $slots,
+        slots => \@slots,
     } => $class; 
 }
 
-# private for now ...
-sub _compute_slot_list_from_class {
-    my ($self, $meta) = @_;
-    return [
-        map { 
-            $_->name
-        } $meta->compute_all_applicable_attributes()
-    ];
-}
-
 sub create_instance {
     my $self = shift;
     $self->bless_instance_structure({});