Tentative 'of' trait, for use with subset.

rakudo · Jun 14, 2011 · 7fde1b2 · 7fde1b2
1 parent cb6bc83
commit 7fde1b2
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/core/traits.pm b/src/core/traits.pm
@@ -23,6 +23,12 @@ multi trait_mod:<does>(Mu:U $doee, Mu:U $role) {
     $doee.HOW.add_role($doee, $role)
 }
 
+proto trait_mod:<of>(|$) { * }
+multi trait_mod:<of>(Mu:U $target, Mu:U $type) {
+    # XXX Ensure we can do this, die if not.
+    $target.HOW.set_of($target, $type);
+}
+
 proto trait_mod:<as>(|$) { * }
 multi trait_mod:<as>(Parameter:D $param, $type) {
     # XXX TODO