view release on metacpan or  search on metacpan

lib/AnyEvent/Worker/Pool.pm  view on Meta::CPAN

    
    # Create a pool of 2 workers
    my $workers = AnyEvent::Worker::Pool->new( 2, @common_worker_init_args );

    # Will be run instantly (left 1 idle worker)
    $workers->do( @common_worker_do_args );
    
    # Will be run instantly (left 0 idle workers)
    $workers->do( @common_worker_do_args );
    
    # Will be run after one of busy worker will get free
    $workers->do( @common_worker_do_args );

    $workers->take_worker(sub {
        my $worker = shift;
        $worker->do(@args, sub {
            $workers>ret_worker($worker);
        });
    });
    
=cut