add subish WHAT()

rakudo · Jul 5, 2011 · 5fa788d · 5fa788d
1 parent 2e59702
commit 5fa788d
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -88,6 +88,10 @@ sub SEQUENCE($left, $right, :$exclude_end) {
     }, :$infinite), @right;
 }
 
+# XXX Wants to be a macro when we have them.
+sub WHAT(\$x) {
+    $x.WHAT
+}
 
 proto sub infix:<...>(|$) { * }
 multi sub infix:<...>($a, $b) { SEQUENCE($a, $b) }