Get rid of smart matches

[perl/modules/re-engine-Plugin.git] / Plugin.pod

diff --git a/Plugin.pod b/Plugin.pod
index e69c8f4b45c4299972b6abdec8ba4f51aa43b9a1..4fc68bf6d40c3e166de07cf54798962d0b5136c1 100644 (file)
--- a/Plugin.pod
+++ b/Plugin.pod
@@ -99,7 +99,7 @@ not be trapped by an C<eval> block that the pattern is in, i.e.
        comp => sub {
            my $rx = shift;
            croak "Your pattern is invalid"
-               unless $rx->pattern ~~ /pony/;
+               unless $rx->pattern =~ /pony/;
        }
    );
 
@@ -119,7 +119,7 @@ invalid pattern such as C</(/>.
             my ($rx, $str) = @_;
 
             # We always like ponies!
-            if ($str ~~ /pony/) {
+            if ($str =~ /pony/) {
                 $ponies++;
                 return 1;
             }
@@ -164,7 +164,7 @@ L</callbacks> method.
 
 =head2 str
 
-    "str" ~~ /pattern/;
+    "str" =~ /pattern/;
     # in comp/exec/methods:
     my $str = $rx->str;
 
@@ -187,7 +187,7 @@ hashrefs, objects, etc.
 =head2 mod
 
     my %mod = $rx->mod;
-    say "has /ix" if %mod ~~ 'i' and %mod ~~ 'x';
+    say "has /ix" if %mod =~ 'i' and %mod =~ 'x';
 
 A key-value pair list of the modifiers the pattern was compiled with.
 The keys will zero or more of C<imsxp> and the values will be true
@@ -332,7 +332,7 @@ callbacks:
                     my ($re, $paren) = @_;
 
                     # This is perl's engine doing the match
-                    $str ~~ /(.*)/;
+                    $str =~ /(.*)/;
 
                     # $1 has been untainted
                     return $1;