Bring our morename rule more in line with STDs.

rakudo · Apr 20, 2010 · 7f8397d · 7f8397d
1 parent cdb2b8f
commit 7f8397d
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -140,7 +140,16 @@ token name {
 
 token morename {
     :my $*QSIGIL := '';
-    '::' <identifier>
+    '::'
+    [
+    ||  <?before '(' | <alpha> >
+        [
+        | <identifier>
+        | '(' ~ ')' <EXPR>
+            <.panic: "Indirect name lookups not yet implemented">
+        ]
+    || <?before '::'> <.panic: "Name component may not be null">
+    ]?
 }
 
 token longname {