checkall.p6

use JSON::Fast;
use v6.d.PREVIEW;
my $lock = Lock.new;
 my @list;
say "getting list";
my $list = qx{curl -s 'https://raw.githubusercontent.com/perl6/ecosystem/master/META.list'};
say "got list";
await do for $list.lines -> $url {
   start {
       #say $url;
       my $proc = run 'curl', '-s', $url, :out;
       my Str $out = $proc.out.slurp;
       my $result;
       try {
           $result = from-json($out);
       };
       #say $result;
       $lock.protect({
           @list.append($result.keys);
           #say @list;
       }) if $proc.exitcode == 0 and $result;
       print '.';
    }
}
print "\n";
Bag(@list).say;