Add a DEPRECATED trait, mark Cool.bytes as DEPRECATED.

Doesn't do anything just yet; but provides a small framework that we can build upon in the future.
rakudo · Jun 30, 2012 · a6d08c3 · a6d08c3
1 parent 5ae28cc
commit a6d08c3
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/src/core/Cool.pm b/src/core/Cool.pm
@@ -56,7 +56,7 @@ my class Cool {
 
     ## string methods
 
-    method bytes() {
+    method bytes() is DEPRECATED {
         nqp::p6box_i(pir::bytelength__IS(nqp::unbox_s(self.Str)));
     }
 

diff --git a/src/core/traits.pm b/src/core/traits.pm
@@ -52,6 +52,9 @@ multi trait_mod:<is>(Routine:D $r, :$rw!) {
 multi trait_mod:<is>(Routine:D $r, :$default!) {
     $r does role { method default() { True } }
 }
+multi trait_mod:<is>(Routine:D $r, :$DEPRECATED!) {
+    # we'll add logic here later
+}
 multi trait_mod:<is>(Routine:D $r, :$inlinable!) {
     $r.set_inline_info($inlinable);
 }