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 join($", @$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 join($", @$cmd) =~ /-Mblib/ |