Implement infix => operator for pair construction.

rakudo · Feb 6, 2010 · 73f7929 · 73f7929
1 parent 815a825
commit 73f7929
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1073,6 +1073,8 @@ token infix:sym<.=> { <sym> <O('%item_assignment, :nextterm<dottyopish>')> }
 
 token infix_postfix_meta_operator:sym<=> { '=' <O('%item_assignment')> }
 
+token infix:sym«=>» { <sym> <O('%item_assignment')> }
+
 token prefix:sym<so> { <sym> >> <O('%loose_unary')> }
 token prefix:sym<not>  { <sym> >> <O('%loose_unary')> }
 

diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -122,3 +122,7 @@ our multi infix:<min>(*@args) {
 our multi infix:<max>(*@args) {
     @args.max;
 }
+
+our multi infix:«=>»($key, $value) {
+    Pair.new(key => $key, value => $value);
+}