File Coverage

blib/lib/Parallel/ForkManager/Child.pm

Criterion	Covered	Total	%
statement	15	18	83.3
branch			n/a
condition	1	2	50.0
subroutine	5	8	62.5
pod	0	4	0.0
total	21	32	65.6

package Parallel::ForkManager::Child;
our $AUTHORITY = 'cpan:DLUX';
# ABSTRACT: role adopted by forked Parallel::ForkManager processes
$Parallel::ForkManager::Child::VERSION = '2.01'; # TRIAL


use strict;
use warnings;

use Carp;

use Moo::Role;

sub is_child  { 1 }
sub is_parent { 0 }

sub start {
    croak "Cannot start another process while you are in the child process";
}

sub finish {
  my ($s, $x, $r)=@_;

  $s->store($r);

    CORE::exit($x || 0);
}

1;

__END__