| blib/lib/Perl/Critic/DynamicPolicy.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 18 | 72.2 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 0 | 560 | unless defined(my $pid = fork) |
| 37 | 32 | 528 | unless ($pid) |
| 42 | 0 | 32 | unless close $parent_reader |
| 51 | 0 | 31 | unless close $child_writer |
| 62 | 1 | 31 | !$eval || $Perl::Critic::DynamicPolicy::EVAL_ERROR ? : |
| 63 | 1 | 31 | if $status |
| 69 | 0 | 528 | unless close $child_writer |
| 73 | 0 | 528 | unless close $parent_reader |
| 79 | 10 | 518 | if $Perl::Critic::DynamicPolicy::CHILD_ERROR |