Provisionally add "is cas" trait to $@%

Just so I can mark the variables in tests that need to be marked this way.
rakudo · Apr 16, 2014 · 3648d3d · 3648d3d
1 parent 9b9ca14
commit 3648d3d
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/core/asyncops.pm b/src/core/asyncops.pm
@@ -14,6 +14,16 @@ multi sub await(Channel $c) {
     $c.receive
 }
 
+multi trait_mod:<is>(Variable:D $v, :$cas!) {
+    #place holder
+}
+multi trait_mod:<is>(Array:D $v, :$cas!) {
+    #place holder
+}
+multi trait_mod:<is>(Hash:D $v, :$cas!) {
+    #place holder
+}
+
 sub INVOKE_KV(&block, $key, $value?) {
 
     my @names = map *.name, &block.signature.params;