| line |
true |
false |
branch |
|
32
|
0 |
0 |
$INC{'blib.pm'} ? : |
|
34
|
336 |
0 |
unless (ref $args->{'go_perl'}) |
|
49
|
0 |
776 |
unless my $flags = fcntl($fh, 3, 0) |
|
51
|
0 |
776 |
unless fcntl $fh, 4, $flags | 2048 |
|
58
|
0 |
388 |
unless ref $cmd eq 'ARRAY' |
|
70
|
0 |
388 |
unless my $pid = open3($wfh, $rfh, $efh, @$cmd) |
|
72
|
0 |
388 |
if ($self->trace) |
|
93
|
0 |
0 |
/^[-:\w]*$/ ? : |
|
108
|
0 |
380 |
unless print $wfh $frozen_request |
|
111
|
0 |
380 |
unless close $wfh |
|
128
|
0 |
760 |
unless $ios->count |
|
136
|
760 |
760 |
unless ($rv) |
|
138
|
760 |
0 |
if (defined $rv) { } |
|
139
|
0 |
0 |
if $trace >= 4 |
|
147
|
0 |
760 |
if $trace >= 4 |
|
149
|
760 |
0 |
if (&$action($fh)) |
|
150
|
0 |
760 |
if $trace >= 4 |
|
157
|
380 |
380 |
if $actions->{'read'}->($fh) |
|
159
|
380 |
762 |
if $complete |
|
187
|
0 |
380 |
unless waitpid $info->{'pid'}, 0 |
|
190
|
0 |
380 |
unless $frozen_response |
|
196
|
0 |
380 |
if ($stderr_msg) |
|
198
|
0 |
0 |
unless $stderr_msg =~ /^Using .*blib/ and join($", @$cmd) =~ /-Mblib/ |