Argon

 view release on metacpan or  search on metacpan

lib/Argon/Manager.pm  view on Meta::CPAN

111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
    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 )