support require Foo:from[...]; Foo.new

As with "use", the name given to "require" should be taken as an alias for whatever is actually located by the from argument.
perl6 · Dec 16, 2010 · 625303c · 625303c
1 parent 01ab3ab
commit 625303c
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/STD.pm6 b/STD.pm6
@@ -1700,6 +1700,11 @@ grammar P6 is STD {
         <sym> <.ws>
         [
         || <module_name> <.ws> <EXPR>?
+            {
+                my $*IN_DECL = 'use';
+                my $*SCOPE = 'use';
+                $¢.add_name($<module_name><longname><name>.Str);
+            }
         || <EXPR>
         ]
     }