typed exception for numeric parameter

rakudo · Feb 24, 2012 · 1ccc79f · 1ccc79f
1 parent ad349d5
commit 1ccc79f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1648,7 +1648,7 @@ grammar Perl6::Grammar is HLL::Grammar {
         | <sigil> <twigil>?
           [
           || <name=.identifier>
-          || <name=.decint> <.panic: "Cannot declare a numeric parameter">
+          || <name=.decint> { $*W.throw($/, 'X::Syntax::Variable::Numeric', what => 'parameter') }
           || $<name>=[<[/!]>]
           ]?
     }

diff --git a/src/core/Exceptions.pm b/src/core/Exceptions.pm
@@ -199,7 +199,8 @@ my class X::Syntax::NegatedPair does X::Syntax {
 }
 
 my class X::Syntax::Variable::Numeric does X::Syntax {
-    method message() { 'Cannot declare a numeric variable' }
+    has $.what = 'variable';
+    method message() { "Cannot declare a numeric $.what" }
 }
 
 my class X::Syntax::Variable::Match does X::Syntax {