[i] update pod + CHANGES

Took 21 minutes

CHANGES

@@ -1,3 +1,6 @@
+1.25     2022-03-18 17:09:54 Europe/Moscow
+       - Fixed bug with built-in $MATCH
+
 1.24     2022-01-16 10:59:29 Europe/Moscow
        - Minor inner refactoring
 

lib/Regex/Object.pm

@@ -134,10 +134,11 @@ version 1.24
     # Works with match regex
 
     my $re = Regex::Object->new;
+    my $success;
     my @matches;
 
-    while ('John Doe Eric Lide Hans Zimmermann' =~ /(?<name>\w+?) (?<surname>\w+)/g) {
-        my $match = $re->collect;
+    while ($success = John Doe Eric Lide Hans Zimmermann' =~ /(?<name>\w+?) (?<surname>\w+)/g) {
+        my $match = $re->collect($success);
         push @matches, $match;
     }
 
@@ -198,12 +199,14 @@ Execute while loop on regex with g modifier and returns Regex::Object::Matches c
 
     my $matches = $re->match_all('John Doe Eric Lide');
 
-=head3 collect()
+=head3 collect($success = undef)
 
 Returns Regex::Object::Match result DTO filled with values from the nearest global match expression.
 
-    $string =~ /(\w*)/
-    my $result = $re->collect;
+    my $success = $string =~ /(\w*)/
+    my $result = $re->collect($success);
+
+ATTENTION!! Always pass $success, otherwise strange behavior is possible, because of built-in $MATCH saving last success.
 
 =head2 Regex::Object::Match METHODS