Add first implementation of Cool.fmt .

rakudo · Jun 22, 2011 · 9b36ac2 · 9b36ac2
1 parent a099c6c
commit 9b36ac2
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/core/Cool.pm b/src/core/Cool.pm
@@ -7,7 +7,14 @@ my class Cool {
         nqp::p6box_i(nqp::chars(nqp::unbox_s(self.Str)));
     }
 
+    method fmt($format = '%s') {
+        nqp::p6box_s(
+            pir::sprintf__SsP(nqp::unbox_s($format.Stringy), nqp::list(self))
+        )
+    }
+
     method substr($start as Int, $length?) {
+        # TODO: Update this to match the spec.
         my Str $str := self.Str;
         my Int $len := ($length // $str.chars).Int;
         if ($len < 0) {