| line |
true |
false |
branch |
|
30
|
0 |
192 |
if &blessed($_) |
|
32
|
0 |
18 |
$hook ? : |
|
39
|
1 |
21 |
if (exists $ENV{'OBJECT_REMOTE_PERL_BIN'}) |
|
85
|
0 |
20 |
if (defined $given_stderr) { } |
|
102
|
0 |
20 |
unless my $pid = open3(my $foreign_stdin, my $foreign_stdout, $foreign_stderr, @{$self->final_perl_command;}) |
|
107
|
0 |
20 |
if (defined $given_stderr) |
|
116
|
0 |
0 |
if (not defined $len or $len == 0) { } |
|
125
|
0 |
0 |
unless print $given_stderr $buf |
|
144
|
534 |
0 |
if (defined $len) |
|
149
|
19 |
515 |
if (not defined $len or 0 == length $to_send) { } |
|
168
|
18 |
1 |
unless $self->watchdog_timeout |
|
177
|
0 |
2 |
unless (defined $conn) |
|
183
|
0 |
2 |
unless ($conn->is_valid) |
|
211
|
21 |
0 |
if (defined $connection_timeout) |
|
215
|
1 |
20 |
if (defined $watchdog_timeout) { } |
|
250
|
84 |
21 |
unless exists $ENV{$name} |
|
253
|
21 |
0 |
if (defined $value) { } |