Allow superclasses with double colons

src/Metamodel.pm

@@ -973,7 +973,7 @@ sub Op::Super::begin {
     $ns = $unit->deref($ns);
     die "superclass $self->name declared in an augment"
         if $opensubs[-1]->augmenting;
-    $ns->add_super($unit->get_stash_obj(@{ $opensubs[-1]->find_pkg($self->name) }));
+    $ns->add_super($unit->get_stash_obj(@{ $opensubs[-1]->find_pkg([ @{ $self->path // ['MY'] }, $self->name ]) }));
 }
 
 sub Op::SubDef::begin {

src/Niecza/Actions.pm

@@ -2187,7 +2187,8 @@ sub process_package_traits { my ($cl, $M, $export, @tr) = @_;
 
     for (@tr) {
         if (exists $_->{_ast}{name}) {
-            push @r, Op::Super->new(node($M), name => $_->{_ast}{name});
+            push @r, Op::Super->new(node($M), name => $_->{_ast}{name},
+                path => $_->{_ast}{path});
         } elsif ($_->{_ast}{export}) {
             if ($export) {
                 push @$export, @{ $_->{_ast}{export} };
@@ -2446,7 +2447,7 @@ sub trait_mod__S_is { my ($cl, $M) = @_;
     my $noparm;
 
     if ($M->is_name($trait)) {
-        $M->{_ast} = { name => $trait };
+        $M->{_ast} = $cl->mangle_longname($M->{longname});
         $noparm = 'Superclasses cannot have parameters';
     } elsif ($trait eq 'export') {
         $M->{_ast} = { export => [ 'DEFAULT', 'ALL' ] };

src/Op.pm

@@ -732,6 +732,7 @@ use CgOp;
     extends 'Op';
 
     has name    => (isa => 'Str', is => 'ro');
+    has path    => (isa => 'Maybe[ArrayRef[Str]]', is => 'ro');
 
     sub code {
         my ($self, $body) = @_;