G'day Mario,

"That's a great idea."

Thanks for the positive feedback.

"I can add a regex check for % ..."

That would be great. Having it in the back-end (e.g. an MCE class):

use MCE;
...
max_workers => "$percent%"
[download]

rather than in an intermediary module (e.g. a Kens::MCE::Util class):

use MCE;
use Kens::MCE::Util 'get_max_workers';
...
max_workers => get_max_workers($percent)
[download]

would certainly simplify matters.

"auto*0 is not a bug."

Thanks for the clarification.

Hi Ken,

MCE 1.875 was released moments ago. Folks may specify a percentage for max_workers. I enjoyed writing the MCE::Flow test in 03_max_workers.t.

use strict;
use warnings;
use Test::More;

BEGIN {
   use_ok 'MCE';
   use_ok 'MCE::Flow';
}

{
   no warnings 'redefine';
   sub MCE::Util::get_ncpu { return 16; }
}

# ... lots more tests not shown here

{
   MCE::Flow::init(max_workers => [1, '25%']);

   my @res;
   mce_flow { gather => \@res },
       sub { MCE->gather('a'.MCE->task_wid()); },  # 1 worker
       sub { MCE->gather('b'.MCE->task_wid()); };  # 4 workers

   @res = sort @res;
   is("@res", "a1 b1 b2 b3 b4", "check that MCE::Flow ran with 5 worke
+rs");

   MCE::Flow->finish();
}

done_testing;
[download]

Thanks,

G'day Mario,

++ Thanks for the incredibly fast response and provision of an updated version with this percentage enhancement. I'm only sorry that I'm not allowed to upvote this more than once.

I've updated my version locally (Cygwin; Perl 5.34) without any issues at all:

$ cpan
...
cpan[1]> install MCE
...
  MARIOROY/MCE-1.875.tar.gz
  /usr/bin/make install  -- OK
[download]

[That'll you get you a green patch on the testers matrix when it's next updated.]

Again, many thanks. I'm very impressed with your amazingly quick response.

— Ken