Add samecase method to the Any class in the setting.

rakudo · Apr 18, 2009 · a245b4d · a245b4d
1 parent 341f449
commit a245b4d
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/src/setting/Any-str.pm b/src/setting/Any-str.pm
@@ -58,6 +58,21 @@ class Any is also {
         $char
     }
 
+    our Str multi method samecase(Str $pattern) is export {
+        my @pattern = $pattern.split('');
+        [~] gather {
+            my $p = "";
+            for (~self).split('') -> $s {
+                $p = @pattern.shift if @pattern;
+                given $p {
+                    when /<upper>/ { take $s.uc }
+                    when /<lower>/ { take $s.lc }
+                    default { take $s }
+                }
+            }
+        }
+    }
+
     our List multi method split(Code $delimiter, $limit = *) {
         my $s = ~self;
         my $l = $limit ~~ Whatever ?? Inf !! $limit;

diff --git a/t/spectest.data b/t/spectest.data
@@ -375,6 +375,7 @@ S32-str/p5chomp.t
 S32-str/p5chop.t
 S32-str/pos.t
 S32-str/rindex.t
+S32-str/samecase.t
 S32-str/split-simple.t
 S32-str/sprintf.t
 S32-str/substr.t