introduce has-substr method to access nqp::eqat

rakudo · Apr 3, 2015 · 049020f · 049020f
1 parent d4fd249
commit 049020f
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/core/Cool.pm b/src/core/Cool.pm
@@ -133,6 +133,15 @@ my class Cool { # declared in BOOTSTRAP
     }
     method trans(*@a) { self.Str.trans(@a) }
 
+    proto method has-substr(|) {*}
+    multi method has-substr(Cool $needle, Cool $pos = 0) {
+        ?nqp::eqat(
+            nqp::unbox_s(self.Str),
+            nqp::unbox_s($needle.Str),
+            nqp::unbox_i($pos.Int)
+        );
+    }
+
     proto method index(|) {*}
     multi method index(Cool $needle, Cool $pos = 0) {
         my int $result = nqp::index(