[require] improve support for multi-joined namespaces

src/core/operators.pm

@@ -269,22 +269,22 @@ sub INDIRECT_NAME_LOOKUP($root, *@chunks) is rw {
 }
 
 sub REQUIRE_IMPORT($package-name, *@syms) {
-    my $package := CALLER::OUR::{$package-name}.WHO;
-    unless $package.exists('EXPORT') {
+    my $package = CALLER::OUR::($package-name);
+    my $who     = $package.WHO;
+    unless $who.exists('EXPORT') {
         die "Trying to import symbols @syms.join(', ') from '$package-name', but it does not export anything";
     }
-    $package := $package<EXPORT>.WHO<ALL>.WHO;
-    say $package.keys;
+    $who := $who<EXPORT>.WHO<DEFAULT>.WHO;
     my @missing;
     for @syms {
-        unless $package.exists($_) {
+        unless $who.exists($_) {
             @missing.push: $_;
             next;
         }
-        OUTER::CALLER::{$_} := $package{$_};
+        OUTER::CALLER::{$_} := $who{$_};
     }
     if @missing {
         X::Import::MissingSymbols.new(:from($package-name), :@missing).throw;
     }
-    CALLER::OUR::{$package-name};
+    $package
 }