implement capitalize

rakudo · Aug 14, 2011 · 0447cac · 0447cac
1 parent 1a442ef
commit 0447cac
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 1 deletion.
diff --git a/src/core/Cool.pm b/src/core/Cool.pm
@@ -54,6 +54,8 @@ my class Cool {
         $self-str eq '' ?? '' !! $self-str.substr(0, 1).lc ~ $self-str.substr(1)
     }
 
+    method capitalize() { self.Stringy.capitalize }
+
     method chomp() {
         self.Str.chomp;
     }
@@ -145,6 +147,10 @@ multi sub ords(Cool $s)       { ords($s.Stringy) }
 proto sub comb(|$)            { * }
 multi sub comb(Regex $matcher, Cool $input) { $input.comb($matcher) }
 
+proto sub capitalize(|$)       { * }
+multi sub capitalize(Str:D $x) {$x.capitalize }
+multi sub capitalize(Cool $x)  {$x.Stringy.capitalize }
+
 sub sprintf(Cool $format, *@args) {
     @args.gimme(*);
     nqp::p6box_s(

diff --git a/src/core/Parcel.pm b/src/core/Parcel.pm
@@ -6,6 +6,7 @@ my class Parcel does Positional {
     multi method Bool(Parcel:D:)           { nqp::p6bool($!storage) }
     multi method Numeric(Parcel:D:)        { self.flat.elems }
     multi method Str(Parcel:D:)            { self.flat.Str }
+#    multi method Int(Parcel:D:)            { self.flat.elems }
     multi method ACCEPTS(Parcel:D: $topic) { self.list.ACCEPTS($topic) }
 
     method Capture() {

diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -433,6 +433,10 @@ my class Str does Stringy {
     method words(Str:D: Int $limit = *) {
         self.comb( / \S+ /, $limit );
     }
+
+    method capitalize(Str:D:) {
+        self.subst(:g, rx/\w+/, -> $_ { .Str.lc.ucfirst });
+    }
 }
 
 

diff --git a/t/spectest.data b/t/spectest.data
@@ -536,7 +536,7 @@ S32-scalar/defined.t
 S32-scalar/undef.t
 S32-str/append.t
 S32-str/bool.t
-# S32-str/capitalize.t  # err: Could not find sub &capitalize #icu
+S32-str/capitalize.t
 S32-str/chomp.t
 S32-str/chop.t
 S32-str/comb.t                                             # icu