support @() and %() shortcuts

rakudo · Sep 24, 2013 · 7e2d8bc · 7e2d8bc
1 parent f4a21d6
commit 7e2d8bc
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1504,6 +1504,9 @@ class Perl6::Actions is HLL::Actions does STDActions {
                 my $name := ~$<sigil> eq '@' ?? 'list' !!
                             ~$<sigil> eq '%' ?? 'hash' !!
                                                 'item';
+                # @() and %()
+                $past := QAST::Var.new( :name('$/'), :scope('lexical') ) if ~$<semilist> eq '';
+
                 $past := QAST::Op.new( :op('callmethod'), :name($name), $past );
             }
         }