Ban .length and .bytes from method not found handler

As suggested on #perl6

src/core/Any.pm

@@ -3,7 +3,6 @@ my class Pair { ... }
 my class Range { ... }
 my class X::Bind::Slice { ... }
 my class X::Bind::ZenSlice { ... }
-my class X::Method::Banned { ... }
 
 my class Any { # declared in BOOTSTRAP
     # my class Any is Mu {
@@ -264,19 +263,6 @@ my class Any { # declared in BOOTSTRAP
 
     method KeySet() { DEPRECATED("'SetHash'"); self.SetHash }
     method KeyBag() { DEPRECATED("'BagHash'"); self.BagHash }
-
-    method length is hidden_from_backtrace {
-        fail X::Method::Banned.new(
-          banned     => ".length",
-          didyoumean => ".chars, .graphs or .codes",
-        );
-    }
-    method bytes is hidden_from_backtrace {
-        fail X::Method::Banned.new(
-          banned     => ".bytes",
-          didyoumean => ".encode(\$encoding).bytes",
-        );
-    }
 }
 Metamodel::ClassHOW.exclude_parent(Any);
 

src/core/Exception.pm

@@ -70,9 +70,16 @@ my class X::Method::NotFound is Exception {
     has $.typename;
     has Bool $.private = False;
     method message() {
-        $.private
-            ?? "No such private method '$.method' for invocant of type '$.typename'"
-            !! "No such method '$.method' for invocant of type '$.typename'";
+        my $message = $.private
+          ?? "No such private method '$.method' for invocant of type '$.typename'"
+          !! "No such method '$.method' for invocant of type '$.typename'";
+        if $.method eq 'length' {
+            $message ~= "\nDid you mean 'chars', 'graphs' or 'codes'?";
+        }
+        elsif $.method eq 'bytes' {
+            $message ~= "\nDid you mean '.encode(\$encoding).bytes'?";
+        }
+        $message;
     }
 }
 
@@ -86,15 +93,6 @@ my class X::Method::InvalidQualifier is Exception {
     }
 }
 
-my class X::Method::Banned is Exception {
-    has $.banned     = "something";
-    has $.didyoumean = "something else";
-    method message() {
-        qq{"$.banned" is banned in Perl 6.
-Did you mean $.didyoumean instead?}
-    }
-}
-
 sub EXCEPTION(|) {
     my Mu $vm_ex   := nqp::shift(nqp::p6argvmarray());
     my Mu $payload := nqp::getpayload($vm_ex);