29 lines
466 B
Perl
29 lines
466 B
Perl
package App::Netdisco::Util::MCE;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use MCE::Util ();
|
|
|
|
use base 'Exporter';
|
|
our @EXPORT = qw/prctl parse_max_workers/;
|
|
|
|
sub prctl { $0 = shift }
|
|
|
|
sub parse_max_workers {
|
|
my $max = shift;
|
|
return 0 if !defined $max;
|
|
|
|
if ($max =~ /^auto(?:$|\s*([\-\+\/\*])\s*(.+)$)/i) {
|
|
my $ncpu = MCE::Util::get_ncpu() || 0;
|
|
|
|
if ($1 and $2) {
|
|
local $@; $max = eval "int($ncpu $1 $2 + 0.5)";
|
|
}
|
|
}
|
|
|
|
return $max || 0;
|
|
}
|
|
|
|
1;
|