gistfile1.p6

# current behavior: no exit code
multi MAIN ('install', *@modules, Bool :$notests, Bool :$nodeps) {
    for @modules -> $x {
        try {
            $panda.resolve($x, :$notests, :$nodeps, :action<install>);
            CATCH { when X::Panda { say $_.message } }
        };
    }
}


# exits non-zero on failure without finishing iterating @modules
multi MAIN ('install', *@modules, Bool :$notests, Bool :$nodeps) {
    my $failures;
    for @modules -> $x {
        try {
            $panda.resolve($x, :$notests, :$nodeps, :action<install>);
            CATCH { when X::Panda { $failures++ && say $_.message } }
        };
    }
    exit $failures;
}


# exits non-zero on failure after finishing iterating @modules
multi MAIN ('install', *@modules, Bool :$notests, Bool :$nodeps) {
    my @failed;
    for @modules -> $x {
        try {
            $panda.resolve($x, :$notests, :$nodeps, :action<install>);
            CATCH { when X::Panda { @failed.push($_) && say $_.message } }
        };
    }
    exit @failed.elems; # or summary report on array of exceptions?
}