File Coverage

blib/lib/Archer/Parallel/ForkManager.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	24	27	88.8

package Archer::Parallel::ForkManager;
use strict;
use warnings;
use Parallel::ForkManager;

sub new { bless {}, shift }

sub run {
    my ($self, $args) = @_;

    my $pm = Parallel::ForkManager->new( $args->{num} );
    for my $elem ( @{ $args->{elems} } ) {
        $pm->start and next;

        $args->{callback}->( $elem );

        $pm->finish;
    }

    $pm->wait_all_children;
}

1;
__END__