Add perl versions of trim() to setting (RT #64096).

Patch courtesy Cory Spencer <cspencer@sprocket.org>.

src/builtins/any-str.pir

@@ -23,7 +23,7 @@ the size of that file down and to emphasize their generic,
 .namespace []
 .sub 'onload' :anon :init :load
     $P0 = get_hll_namespace ['Any']
-    '!EXPORT'('chomp,chars,:d,:e,:f,index,rindex,ord,substr,trim', 'from'=>$P0)
+    '!EXPORT'('chomp,chars,:d,:e,:f,index,rindex,ord,substr', 'from'=>$P0)
 .end
 
 
@@ -68,39 +68,6 @@ the size of that file down and to emphasize their generic,
        .return (retv)
 .end
 
-=item trim()
-
-Remove leading and trailing whitespace from a string.
-
-=cut
-
-.sub 'trim' :method :multi(_)
-    .local string s
-    .local int start, end, temp, len
-    .local int is_whitespace
-    s = self
-    start = 0
-    end = length s
-    if end == 0 goto donetrailing
-  trimleading:
-    is_whitespace = is_cclass .CCLASS_WHITESPACE, s, start
-    unless is_whitespace goto doneleading
-    inc start
-    goto trimleading
-  doneleading:
-    temp = end
-  trimtrailing:
-    dec temp
-    is_whitespace = is_cclass .CCLASS_WHITESPACE, s, temp
-    unless is_whitespace goto donetrailing
-    end = temp
-    goto trimtrailing
-  donetrailing:
-    len = end - start
-    s = substr s, start, len
-    .return(s)
-.end
-
 =item ':d'()
 
  our Bool multi Str::':d' ( Str $filename )

src/setting/Any-str.pm

@@ -86,6 +86,11 @@ class Any is also {
         }
     }
 
+    # TODO: signature not fully specced in S32 yet
+    our Str multi method trim is export {
+        (~self).subst(/(^\s+)|(\s+$)/, "", :g)
+    }
+
     our Str multi method uc is export {
         return Q:PIR {
             $S0 = self
@@ -97,7 +102,6 @@ class Any is also {
     our Str multi method ucfirst is export {
         self gt '' ?? self.substr(0,1).uc ~ self.substr(1) !! ""
     }
-
 }
 
 sub split($delimiter, $target, $limit = *) {