Add is rw trait for routines.

rakudo · Jul 9, 2011 · c23e04f · c23e04f
1 parent 48e6bf7
commit c23e04f
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.pm b/src/Perl6/Metamodel/BOOTSTRAP.pm
@@ -364,8 +364,13 @@ Block.HOW.publish_parrot_vtable_mapping(Block);
 # class Routine is Block { ... }
 my stub Routine metaclass Perl6::Metamodel::ClassHOW { ... };
 Routine.HOW.add_parent(Routine, Block);
+Routine.HOW.add_attribute(Routine, BOOTSTRAPATTR.new(:name<$!rw>, :type(int)));
 Routine.HOW.publish_parrot_vtable_handler_mapping(Routine);
 Routine.HOW.publish_parrot_vtable_mapping(Routine);
+Routine.HOW.add_method(Routine, 'set_rw', sub ($self) {
+        my $dcself := pir::perl6_decontainerize__PP($self);
+        pir::repr_bind_attr_int__0PPsi($dcself, Routine, '$!rw', 1);
+    });
 
 # class Sub is Routine { ... }
 my stub Sub metaclass Perl6::Metamodel::ClassHOW { ... };

diff --git a/src/core/traits.pm b/src/core/traits.pm
@@ -14,6 +14,7 @@ multi trait_mod:<is>(Attribute:D $attr, :$rw!) {
 }
 
 multi trait_mod:<is>(Routine:D $r, :$rw!) {
+    $r.set_rw();
 }
 
 multi trait_mod:<is>(Parameter:D $param, :$rw!) {