awesomize error message for regexes in packages a bit (though allowin…

…g them would really be preferrable)

src/Perl6/Compiler/Module.pm

@@ -2,7 +2,7 @@ class Perl6::Compiler::Module is Perl6::Compiler::Package;
 
 # Modules don't support methods.
 method methods() {
-    pir::die('You can not add a method to a module; use a class or role');
+    pir::die('You can not add a ' ~ $*METHODTYPE ~ ' to a module; use a class, role or grammar ');
 }
 
 # Accessor for attributes hash.

src/Perl6/Grammar.pm

@@ -763,14 +763,17 @@ rule post_constraint {
 proto token regex_declarator { <...> }
 token regex_declarator:sym<rule> { 
     <sym> {*} #= open
+    :my $*METHODTYPE := 'rule';
     <regex_def> 
 }
 token regex_declarator:sym<token> { 
     <sym> {*} #= open
+    :my $*METHODTYPE := 'token';
     <regex_def> 
 }
 token regex_declarator:sym<regex> { 
     <sym> {*} #= open
+    :my $*METHODTYPE := 'regex';
     <regex_def> 
 }