X::Syntax::Signature::InvocantMarker

rakudo · Feb 26, 2012 · 9d39e88 · 9d39e88
1 parent 4f0ed5c
commit 9d39e88
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2306,7 +2306,7 @@ class Perl6::Actions is HLL::Actions {
             my $sep := @*seps[$param_idx];
             if ~$sep eq ':' {
                 if $param_idx != 0 {
-                    $/.CURSOR.panic("Can only use : in a signature after the first parameter");
+                    $*W.throw($/, 'X::Syntax::Signature::InvocantMarker')
                 }
                 %info<is_invocant> := 1;
             }

diff --git a/src/core/Exceptions.pm b/src/core/Exceptions.pm
@@ -286,6 +286,12 @@ my class X::Syntax::Regex::Adverb does X::Syntax {
     method message() { "Adverb $.adverb not allowed on $.construct" }
 }
 
+my class X::Syntax::Signature::InvocantMarker does X::Syntax {
+    method message() {
+        "Can only use : as invocant marker in a signature after the first parameter"
+    }
+}
+
 my class X::Attribute::Package does X::Comp {
     has $.package-type;
     method message() { "A $.package-type cannot have attributes" }