Str.trim-leading - more efficient than in master

rakudo · Aug 7, 2011 · b0f733e · b0f733e
1 parent f27ddd0
commit b0f733e
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -392,6 +392,18 @@ my class Str does Stringy {
         }
         @chars.join('');
     }
+
+    method trim-leading(Str:D:) {
+        my Int $pos = nqp::p6box_i(
+            pir::find_not_cclass__IiSii(
+                pir::const::CCLASS_WHITESPACE,
+                nqp::unbox_s(self),
+                0,
+                nqp::unbox_i(self.chars)
+            )
+        );
+        self.substr($pos);
+    }
 }