gistfile1.txt

method !run-with-progress ($items, Routine $sub, Str $msg = q{   done}) {
    my $prog = Term::ProgressBar.new( :count( $items.elems ), :p )
        if $!verbose;

    my $i = 1;
    $items.hyper( :batch($!threads) ).map(
        sub ($item) {
            say $item;return;
            $sub($item);
            say "THREAD #{$*THREAD.id}";
            $prog.?update($i);
            $i++;
        },
    );

    $prog.?message($msg);
}