# New Ticket Created by "Eric Hodges"
# Please include the string: [perl #61420]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=61420 >
Index: src/classes/Int.pir
===================================================================
--- src/classes/Int.pir (revision 33937)
+++ src/classes/Int.pir (working copy)
@@ -37,6 +37,24 @@
.end
+=item succ and pred
+
+Increment and Decrement Methods
+
+=cut
+
+.sub 'succ' :method
+ $P0 = clone self
+ inc $P0
+ .return ($P0)
+.end
+
+.sub 'pred' :method
+ $P0 = clone self
+ dec $P0
+ .return ($P0)
+.end
+
=item ACCEPTS()
=cut
Index: src/classes/Str.pir
===================================================================
--- src/classes/Str.pir (revision 33937)
+++ src/classes/Str.pir (working copy)
@@ -113,7 +113,25 @@
.return ($P0)
.end
+=item succ and pred
+Increment and Decrement Methods
+
+=cut
+
+.sub 'succ' :method
+ $P0 = clone self
+ inc $P0
+ .return ($P0)
+.end
+
+.sub 'pred' :method
+ $P0 = clone self
+ dec $P0
+ .return ($P0)
+.end
+
+
=item WHICH()
Returns the identify value.
Index: src/classes/Num.pir
===================================================================
--- src/classes/Num.pir (revision 33937)
+++ src/classes/Num.pir (working copy)
@@ -67,6 +67,25 @@
.end
+=item succ and pred
+
+Increment and Decrement Methods
+
+=cut
+
+.sub 'succ' :method
+ $P0 = clone self
+ inc $P0
+ .return ($P0)
+.end
+
+.sub 'pred' :method
+ $P0 = clone self
+ dec $P0
+ .return ($P0)
+.end
+
+
=item WHICH()
Returns the identify value.
