list_module_versions_of_p6c.pl6

use v6.c;

use JSON::Fast;
use LibCurl::HTTP :subs;

sub MAIN(
    Str :$url = 'https://ecosystem-api.p6c.org/projects1.json',
    Str :$file,
) {
    my @modules;
    if $file and $file.IO.e {
        @modules = slip from-json($file.IO.slurp)
    } elsif $url {
        @modules = slip jget($url);
    } else {
        die;
    }
    for @modules  {
        say .<name>, ' -> ', .<version>
    }
}