throw typed exception for syntax extensions to illegal categories (RT…

… #82984)
rakudo · Apr 5, 2012 · c62b90d · c62b90d
1 parent 34ac9bf
commit c62b90d
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -455,6 +455,13 @@ my class X::Syntax::Signature::InvocantMarker does X::Syntax {
     }
 }
 
+my class X::Syntax::Extension::Category does X::Syntax {
+    has $.category;
+    method message() {
+        "Cannot add tokens of category '$.category'";
+    }
+}
+
 my class X::Attribute::Package does X::Comp {
     has $.package-type;
     method message() { "A $.package-type cannot have attributes" }