Implement trait_mod:<is> for rw on packages. Not checked for yet.

rakudo · Jul 2, 2010 · ac5e926 · ac5e926
1 parent 4715825
commit ac5e926
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/traits.pm b/src/core/traits.pm
@@ -12,6 +12,10 @@ our multi trait_mod:<is>(Mu $child, Role $r) {
     $child.^add_parent($r!select!pun);
 }
 
+multi trait_mod:<is>(Mu $type where { !.defined }, :$rw!) {
+    $type.HOW does role { method rw { True } }
+}
+
 role Positional { ... }
 role Associative { ... }
 our multi trait_mod:<of>(ContainerDeclarand $cont, Mu \$type) {