Get role code generation using the attribute meta-protocol properly.

rakudo · Dec 7, 2009 · 2edef04 · 2edef04
1 parent 2069f24
commit 2edef04
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/Perl6/Compiler/Role.pm b/src/Perl6/Compiler/Role.pm
@@ -49,10 +49,18 @@ method finish($block) {
     # Attributes.
     my %attrs := self.attributes;
     for %attrs {
+        my $attr := PAST::Op.new(
+            :pasttype('callmethod'),
+            :name('new'),
+            PAST::Var.new( :name('Attribute'), :namespace(''), :scope('package') ),
+            PAST::Val.new( :value(~$_),                  :named('name') ),
+            PAST::Val.new( :value(%attrs{$_}<accessor>), :named('has_accessor') ),
+            PAST::Val.new( :value(%attrs{$_}<rw>),       :named('rw') ),
+        );
         $decl.push(PAST::Op.new(
             :pasttype('callmethod'),
             :name('add_attribute'),
-            $metaclass, $meta_reg, ~$_
+            $metaclass, $meta_reg, $attr
         ));
     }