incdec: Get backward-search incrementing working for last number

Doesn't work for middle numbers yet.

2 files changed, 25 insertions, 0 deletions

diff --git a/incdec.pm b/incdec.pm
index 937f055..84990c0 100644
--- a/incdec.pm
+++ b/incdec.pm
@@ -10,12 +10,31 @@ sub incdec {
 	$is_backward ||= 0;
 
 	my $start_position = 0;
+	my @points = ();
+	my $previous_match_start = 0;
 	while ($line =~ /(\d+)/g) {
+		if ($is_backward) {
+			$previous_match_start = $-[0];
+
+			# if $point_position < $-[0]
+			# && previous $+[0] <= $point_position
+			# if ($point_position >= $-[0]) {
+			# 	$start_position = $-[0];
+            #
+			# 	last;
+			# }
+		}
+		else {
 		if ($point_position < $+[0]) {
 			$start_position = $-[0];
 
 			last;
 		}
+		}
+	}
+
+	if ($is_backward) {
+		$start_position = $previous_match_start;
 	}
 
 	pos($line) = $start_position;
diff --git a/t/100-increment-decrement.t b/t/100-increment-decrement.t
index ee7aee9..b234f83 100644
--- a/t/100-increment-decrement.t
+++ b/t/100-increment-decrement.t
@@ -55,4 +55,10 @@ is(
 	'increments the fourth double-digit integer with point at position 16'
 );
 
+is(
+	incdec::incdec('test 12 19 555 64', 17, 1),
+	'test 12 19 555 65',
+	'increments the fourth double-digit integer with point at position 16 backward'
+);
+
 done_testing;