| blib/lib/Test/SerialFork.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 16 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 118 | 0 | 3 | unless $Test->ok(@_ == grep((defined $_ && /\S/), @_), 'serial_fork() parameters good') |
| 122 | 0 | 5 | unless $Test->ok(pipe(my $stdout_in, my $stdout_out), "${label}: Create pipe") |
| 126 | 3 | 2 | if (my $pid = fork) { } |
| 2 | 0 | elsif (defined $pid) { } | |
| 133 | 3 | 0 | if ($line =~ /\A((not\s+)?ok)(?:\s+-)(?:\s+(.*))\z/) { } |
| 0 | 0 | elsif ($line =~ s/\A#\s?//) { } | |
| 157 | 0 | 2 | unless open STDERR, ">&=$fileno" |
| 159 | 0 | 2 | unless open STDOUT, ">&=$fileno" |