implement Int.succ, jnthn++

rakudo · Jun 7, 2011 · fa5da99 · fa5da99
1 parent 8772963
commit fa5da99
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/CORE.setting/Int.pm b/src/CORE.setting/Int.pm
@@ -17,5 +17,9 @@ my class Int {
     method chr() {
         pir::perl6_box_str__PS(pir::chr(pir::repr_unbox_int__IP(self)));
     }
+
+    proto method succ(|$) {*}
+    multi method succ(Int:D:) { self + 1 }
+    multi method succ(Int:U:) {        1 }
 }