| line |
true |
false |
branch |
|
29
|
0 |
148 |
unless $self->go_perl |
|
37
|
148 |
0 |
unless defined $persist |
|
38
|
148 |
0 |
$persist ? : |
|
39
|
140 |
8 |
if ($persist{$key} and $self->_connection_check($persist{$key})) |
|
40
|
0 |
140 |
if $self->trace >= 1 |
|
46
|
8 |
0 |
if ($key) |
|
47
|
0 |
8 |
if keys %persist > $persist_all |
|
60
|
0 |
140 |
if $self->trace |
|
69
|
0 |
0 |
if $self->trace |
|
89
|
0 |
8 |
if (my $url = $self->go_url) |
|
90
|
0 |
0 |
unless $url =~ s/^ssh:// |
|
96
|
0 |
0 |
if "@$go_perl" eq $^X |
|
101
|
0 |
8 |
if $self->trace |
|
125
|
0 |
380 |
if $trace >= 4 |
|
131
|
0 |
380 |
unless ($wfh->print($encoded_request)) |
|
137
|
0 |
380 |
if $trace >= 4 |
|
147
|
0 |
380 |
if $trace >= 4 |
|
158
|
0 |
0 |
if $trace >= 4 |
|
163
|
0 |
0 |
if $trace >= 4 |
|
164
|
380 |
0 |
$encoded_response =~ s/\015\012$// ? : |
|
171
|
0 |
380 |
unless ($encoded_response) |
|
173
|
0 |
0 |
if $errno |
|
174
|
0 |
0 |
if ($stderr_msg) |
|
176
|
0 |
0 |
kill(0, $pid) ? : |
|
184
|
0 |
380 |
if $trace >= 4 |
|
187
|
0 |
380 |
if $stderr_msg and $trace |
|
195
|
0 |
380 |
if ($stderr_msg) |
|
197
|
0 |
0 |
unless $stderr_msg =~ /^Using .*blib/ and "@$cmd" =~ /-Mblib/ |