add Any as default superclass

Author: moritz

lib/Perl6/TypeGraph.pm

@@ -52,6 +52,9 @@ class Perl6::TypeGraph {
             my $m = Decl.parse($l, :actions(Actions.new));
             my $t = $m<type>.ast;
             $t.packagetype = ~$m<package>;
+            if $t.packagetype ne 'role' && !$t.super && $t ne 'Mu' {
+                $t.super.push: $get-type('Any');
+            }
         }
     }
 }

t/typegraph.t

@@ -12,4 +12,6 @@ ok $t.types<List>.roles.any eq 'Positional',
     'List does positional';
 is $t.types<Str>.mro, 'Str Cool Any Mu', 'Str mro';
 is $t.types<Match>.mro, 'Match Capture Cool Any Mu', 'Match mro';
+is $t.types<Stash>.super.any, 'Any', 'Any as default parent works';
+is $t.types<Any>.super, 'Mu', 'default-Any did not add a parent to Any';
 done;