[setting] make !% work with Whatever

rakudo · Oct 26, 2009 · 657d55c · 657d55c
1 parent fc56071
commit 657d55c
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
@@ -163,7 +163,7 @@ sub prefix:<[||]>(*@a) {
     return ();
 }
 
-sub infix:<!%>($a, $b) { ! ($a % $b) }
+multi sub infix:<!%>($a, $b) { ! ($a % $b) }
 
 
 multi sub infix:<+>($a, $b) {

diff --git a/src/setting/Whatever.pm b/src/setting/Whatever.pm
@@ -65,6 +65,15 @@ multi sub infix:<%>($a, Whatever $b)
 multi sub infix:<%>($a, WhateverCode $b)
     { WhateverCodeX('infix:%', $a, $b) }
 
+multi sub infix:<!%>(Whatever $a, $b) is default 
+    { WhateverCodeX('infix:!%', $a, $b) }
+multi sub infix:<!%>(WhateverCode $a, $b) is default 
+    { WhateverCodeX('infix:!%', $a, $b) }
+multi sub infix:<!%>($a, Whatever $b)
+    { WhateverCodeX('infix:!%', $a, $b) }
+multi sub infix:<!%>($a, WhateverCode $b)
+    { WhateverCodeX('infix:!%', $a, $b) }
+
 multi sub infix:<div>(Whatever $a, $b) is default 
     { WhateverCodeX('infix:div', $a, $b) }
 multi sub infix:<div>(WhateverCode $a, $b) is default