implement the rest of require + indirect lookup

rakudo · Jan 7, 2013 · c072f82 · c072f82
1 parent e67fa90
commit c072f82
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/Perl6/World.pm b/src/Perl6/World.pm
@@ -1554,7 +1554,14 @@ class Perl6::World is HLL::World {
                     return @!components[0];
                 }
                 else {
-                    nqp::die("Not yet implemented :(");
+                    my $past := QAST::Op.new(:op<call>, :name('&infix:<,>'));
+                    for @!components {
+                        $past.push: $_ ~~ QAST::Node ?? $_ !! QAST::SVal.new(:value($_));
+                    }
+                    return QAST::Op.new(:op<callmethod>, :name<join>,
+                        $past,
+                        QAST::SVal.new(:value<::>)
+                    );
                 }
             }
             else {