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;
    my $supply = $items.Supply.throttle(
        $!threads,
        -> $item {
            say "$i = $item in {$*THREAD.id}";
            #                   $sub($item);
            #                    $prog.?update($i);
            $i++;
        }
    );
    $supply.wait;

    $prog.?message($msg);
}