gistfile1.txt

sub descendants ($name, $prefix = '', $ns = ::GLOBAL.WHO) is export {
    my @descendants;
    for $ns.keys {
        my $key = $prefix ~ $_;
        say "\$key is $key";
        my $type = 'Array';
        try @descendants.append: ::($key).^parents;
        @descendants.append: descendants $name, $key ~ '::', $ns{$_}
            if $ns{$_}.keys;
    }

    return @descendants.unique;
}