Argon
view release on metacpan or search on metacpan
lib/Argon/Manager.pm view on Meta::CPAN
111112113114115116117118119120121122123124125126127128129130131
queue
=>
$self
->queue,
};
my
$data
= encode(
$saved
);
$self
->save_file(
$data
);
}
sub
capacity {
$_
[0]->tracker->{self}->capacity }
sub
has_capacity {
$_
[0]->tracker->{self}->has_capacity }
sub
update_queue_capacity {
my
$self
=
shift
;
$self
->queue->max(
$self
->capacity * 3);
}
sub
next_worker {
my
$self
=
shift
;
my
@workers
=
sort
{
$self
->tracker->{
$a
}->load <=>
$self
->tracker->{
$b
}->load }
grep
{
$self
->tracker->{
$_
}->has_capacity }
( run in 0.417 second using v1.01-cache-2.11-cpan-49f99fa48dc )