Add "is TypeObject" and "of TypeObject" traits

rakudo · Jul 26, 2013 · c73fd26 · c73fd26
1 parent 7b901bd
commit c73fd26
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/core/Variable.pm b/src/core/Variable.pm
@@ -17,6 +17,12 @@ multi trait_mod:<is>(Variable:D $v, :$readonly!) {
 multi trait_mod:<is>(Variable:D $v, :$rw!) {
     nqp::getattr($v.var, $v.VAR.WHAT, '$!descriptor').set_rw($rw);
 }
+multi trait_mod:<is>(Variable:D $v, Mu:U $of ) {
+    nqp::getattr($v.var, $v.VAR.WHAT, '$!descriptor').set_of($of);
+}
+multi trait_mod:<of>(Variable:D $v, Mu:U $of ) {
+    nqp::getattr($v.var, $v.VAR.WHAT, '$!descriptor').set_of($of);
+}
 multi trait_mod:<is>(Variable:D $v, :$dynamic!) {
 # not sure what needs to happen here yet
 }