perl6 uninstall

uninstall.pl6

use v6.c;

sub MAIN($short-name, :$ver = True, :$auth = True, :$api = True) {
    my $spec = CompUnit::DependencySpecification.new(:$short-name, :$ver, :$auth, :$api);
    
    say "Uninstalled the follow distributions:";
    .say for
        map  { .repo.uninstall(.distribution) },
        grep { .so },
        map  { .resolve($spec) },
        grep { $_ ~~ CompUnit::Repository::Installation },
        $*REPO.repo-chain;
}