Implement ~ and ? prefix ops

sorear · Jul 13, 2010 · 332b344 · 332b344
1 parent 02783f9
commit 332b344
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/setting b/setting
@@ -303,4 +303,10 @@ sub prefix:<++>($v) { $v = ($v + 1); $v }
 sub postfix:<-->($v) { my $old = $v; $v = ($v - 1); $old }
 sub postfix:<++>($v) { my $old = $v; $v = ($v + 1); $old }
 
+# actually a macro
+# sub infix:<:=>($l,$r) { ... }
+
+sub prefix:<~>($v) { $v.Str } # should be Stringy
+sub prefix:<?>($v) { $v.Bool }
+
 YOU_ARE_HERE;