implement wordcase, deprecate capitalize

docs/ChangeLog

@@ -6,6 +6,7 @@ New in 2012.09
 + compiler now built with QAST-based NQP, which generates better code, thus
   making the compiler a little faster
 + support for "is export" traits on constants
++ implemented Str.wordcase
 
 New in 2012.08
 + tclc implemented

docs/deprecations

@@ -1,3 +1,9 @@
+Deprecations in 2012.09
+
+    Str.capitalize and &capitalize are deprecated in favor
+    of the the Str.wordcase and &wordcase routines.
+    They will uncondtionally warn in 2012.10, and be removed in 2012.11.
+
 Deprecations in 2012.08
 
     Parameters preceeded by a | or \ may not have a sigil anymore.

src/core/Cool.pm

@@ -90,7 +90,8 @@ my class Cool {
         $self-str eq '' ?? '' !! $self-str.substr(0, 1).uc ~ $self-str.substr(1)
     }
 
-    method capitalize() { self.Stringy.capitalize }
+    method capitalize() is DEPRECATED { self.Stringy.capitalize }
+    method wordcase()   { self.Str.wordcase }
 
     method chomp() {
         self.Str.chomp;
@@ -213,10 +214,14 @@ multi sub ords(Cool $s)       { ords($s.Stringy) }
 proto sub comb(|)            { * }
 multi sub comb(Regex $matcher, Cool $input, $limit = *) { $input.comb($matcher, $limit) }
 
-proto sub capitalize(|)       { * }
+proto sub capitalize(|) is DEPRECATED { * }
 multi sub capitalize(Str:D $x) {$x.capitalize }
 multi sub capitalize(Cool $x)  {$x.Stringy.capitalize }
 
+proto sub wordcase(|)       { * }
+multi sub wordcase(Str:D $x) {$x.wordcase }
+multi sub wordcase(Cool $x)  {$x.Str.wordcase }
+
 proto sub tclc(|)             { * }
 multi sub tclc(Cool $x)        { tclc $x.Str }
 

src/core/Str.pm

@@ -751,10 +751,16 @@ my class Str does Stringy {
         $buf;
     }
 
-    method capitalize(Str:D:) {
+    method capitalize(Str:D:) is DEPRECATED {
         self.subst(:g, rx/\w+/, -> $_ { .Str.lc.ucfirst });
     }
-
+    method wordcase(Str:D: :&filter = &tclc, :$where = True) {
+        my token identifier { [<:L> \w* ] *% <['\-]> }
+        self.subst(:g, / [<:L> \w* ] +% <['\-]> /, -> $m {
+            my Str $s = $m.Str;
+            $s ~~ $where ?? filter($s) !! $s;
+        });
+    }
 
     my class LSM {
         has Str $!source;