add infix &&=, += and *=

rakudo-p5 · May 22, 2013 · fa15468 · fa15468
1 parent 07924e6
commit fa15468
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lib/Perl5/Terms.pm b/lib/Perl5/Terms.pm
@@ -92,6 +92,9 @@ multi sub undef($a is rw) is export { undefine $a; Nil }
 multi infix:<P5~>(\a = '') is export { a.P5Str           }
 multi infix:<P5~>(\a, \b)  is export { a.P5Str ~ b.P5Str }
 multi infix:<||=>(\a, \b)  is export { a = b unless a    }
+multi infix:<&&=>(\a, \b)  is export { a = b if a        }
+multi infix:<+=> (\a, \b)  is export { a = a + b         }
+multi infix:<*=> (\a, \b)  is export { a = a * b         }
 
 sub say(*@a) is export { @a.P5Str.say }; # XXX $*MAIN eq 'Perl5' ?? @a.P5Str.say !! @a.say