Implement Cool.ends-with, inspired by lucasb++

rakudo · Apr 8, 2015 · eb05181 · eb05181
1 parent 993c659
commit eb05181
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/src/core/Cool.pm b/src/core/Cool.pm
@@ -154,6 +154,22 @@ my class Cool { # declared in BOOTSTRAP
         );
     }
 
+    proto method ends-with(Str(Cool) $suffix) { * }
+    multi method ends-with(Str:D: Str(Cool) $suffix) {
+        my str $str    = nqp::unbox_s(self);
+        my str $needle = nqp::unbox_s($suffix);
+        nqp::p6bool(
+          nqp::eqat($str,$needle,nqp::chars($str) - nqp::chars($needle))
+        );
+    }
+    multi method ends-with(Cool:D: Str(Cool) $suffix) {
+        my str $str    = nqp::unbox_s(self.Str);
+        my str $needle = nqp::unbox_s($suffix);
+        nqp::p6bool(
+          nqp::eqat($str,$needle,nqp::chars($str) - nqp::chars($needle))
+        );
+    }
+
     proto method substr-eq-at(|) {*}
     multi method substr-eq-at(Str:D: Str(Cool) $needle, Int(Cool) $pos) {
         nqp::p6bool(