Parse variable shape in declarations

rakudo · Jan 4, 2010 · 30136a1 · 30136a1
1 parent a867b39
commit 30136a1
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -563,6 +563,14 @@ token variable_declarator {
     :my $*IN_DECL := 'variable';
     <variable>
     { $*IN_DECL := '' }
+    [
+        <.unsp>? 
+        $<shape>=[
+        | '(' ~ ')' <signature>
+        | '[' ~ ']' <semilist>
+        | '{' ~ '}' <semilist>
+        ]*
+    ]?
     <trait>*
 }