The most depended on Perl 6 modules

revdeps.pl

use HTTP::UserAgent;
use JSON::Tiny;

my $ua = HTTP::UserAgent.new;

my Array %mods;

my $json = $ua.get('http://ecosystem-api.p6c.org/projects.json').content;

my $data = from-json($json);

for $data.list -> $project {
    if $project<depends>:exists {
        for $project<depends>.list -> $depend {
            if $depend.defined {
                %mods{$depend}.push($project<name>);
            }
        }
    }
}

for %mods.kv.map(-> $k,$v { [ $k, $v ] }).sort(-> $a { $a[1].elems } ) -> $v {
    say $v[0], " ",$v[1].elems;
}