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


line stmt bran cond sub pod time code
1             package Parallel::ForkManager::Child;
2             our $AUTHORITY = 'cpan:DLUX';
3             # ABSTRACT: role adopted by forked Parallel::ForkManager processes
4             $Parallel::ForkManager::Child::VERSION = '2.02';
5            
6              
7 106     106   743 use strict;
  106         289  
  106         3247  
8 106     106   542 use warnings;
  106         214  
  106         2422  
9              
10 106     106   544 use Carp;
  106         212  
  106         5080  
11              
12 106     106   51903 use Moo::Role;
  106         1865411  
  106         452  
13              
14 0     0 0 0 sub is_child { 1 }
15 0     0 0 0 sub is_parent { 0 }
16              
17             sub start {
18 0     0 0 0 croak "Cannot start another process while you are in the child process";
19             }
20              
21             sub finish {
22 98     98 0 11031093 my ($s, $x, $r)=@_;
23              
24 98         7551 $s->store($r);
25              
26 98   50     18245 CORE::exit($x || 0);
27             }
28              
29             1;
30              
31             __END__