Document Str.samecase

... and state that Cool.samecase uses it.

Author: stoned

doc/Type/Cool.pod6

@@ -972,18 +972,10 @@ Defined as:
     sub samecase(Cool $string, Cool $pattern)
     method samecase(Cool:D: Cool $pattern)
 
-Coerces the invocant (or in sub form, the first argument) to L<Str|/type/Str>,
-and returns a copy of C<$string> with case information for each individual
-character changed according to C<$pattern>.
-
-B<Note>: The pattern string can contain
-three types of characters, i.e. uppercase, lowercase and caseless. For a given
-character in C<$pattern> its case information determines the case of the
-corresponding character in the result.
-
-If C<$string> is longer than
-C<$pattern>, the case information from the last character of C<$pattern> is
-applied to the remaining characters of C<$string>.
+Coerces the invocant (or in sub form, the
+first argument) to L<Str|/type/Str>, and calls
+L«C<Str.samecase>|/type/Str#method_samecase» on it.
+
 
     say "raKu".samecase("A_a_"); # OUTPUT: «Raku␤»
     say "rAKU".samecase("Ab");   # OUTPUT: «Raku␤»

doc/Type/Str.pod6

@@ -506,6 +506,25 @@ convert those:
 I<Note:> before being standardized in 2017.12, this routine was known
 under its working name of L<parse-names|/routine/parse-names>. This denomination will be removed in the 6.e version.
 
+=head2 method samecase
+
+  multi method samecase(Str:D: Str:D $pattern --> Str:D)
+
+Returns a copy of the invocant with case information for each individual
+character changed according to C<$pattern>.
+
+B<Note>: The pattern string can contain three types of characters,
+i.e. uppercase, lowercase and caseless. For a given character in
+C<$pattern> its case information determines the case of the corresponding
+character in the result.
+
+If the invocant is longer than C<$pattern>, the case information from
+the last character of C<$pattern> is applied to the remaining characters
+of the invocant.
+
+    say "raKu".samecase("A_a_"); # OUTPUT: «Raku␤»
+    say "rAKU".samecase("Ab");   # OUTPUT: «Raku␤»
+
 =head2 routine split
 
 =for code :method