| line |
true |
false |
branch |
|
63
|
0 |
0 |
unless defined $attr |
|
69
|
0 |
0 |
unless defined $val |
|
75
|
0 |
0 |
unless defined $sub |
|
82
|
0 |
0 |
unless defined $user |
|
83
|
0 |
0 |
if @_ > 2 and not defined $password |
|
93
|
0 |
0 |
unless $password |
|
98
|
0 |
0 |
unless $host |
|
101
|
0 |
0 |
if $host and $host =~ /^\[/ and $host =~ /\]$/ |
|
109
|
0 |
0 |
unless $user |
|
148
|
0 |
0 |
unless ($to) |
|
155
|
0 |
0 |
if ($from =~ /:/) { } |
|
158
|
0 |
0 |
if $dest |
|
163
|
0 |
0 |
if $dest |
|
166
|
0 |
0 |
unless $login |
|
167
|
0 |
0 |
unless $password or $identity_file |
|
168
|
0 |
0 |
unless $host |
|
171
|
0 |
0 |
$auto_quote ? : |
|
176
|
0 |
0 |
if $cipher |
|
177
|
0 |
0 |
if $port |
|
178
|
0 |
0 |
if $recursive |
|
179
|
0 |
0 |
if $verbose |
|
180
|
0 |
0 |
if $preserve |
|
181
|
0 |
0 |
if $protocol |
|
183
|
0 |
0 |
if $subsystem |
|
184
|
0 |
0 |
if $option |
|
185
|
0 |
0 |
if $identity_file |
|
186
|
0 |
0 |
if $compress |
|
187
|
0 |
0 |
if $force_ipv4 |
|
188
|
0 |
0 |
if $force_ipv6 |
|
195
|
0 |
0 |
defined $scp_path ? : |
|
198
|
0 |
0 |
if ($auto_quote) |
|
206
|
0 |
0 |
unless ($scp) |
|
207
|
0 |
0 |
if ($handler) { } |
|
213
|
0 |
0 |
if ($auto_yes) |
|
219
|
0 |
0 |
if ($password) |
|
220
|
0 |
0 |
unless ($scp->expect($timeout, -'re', '[Pp]assword.*?:|[Pp]assphrase.*?:')) |
|
222
|
0 |
0 |
if ($err) |
|
223
|
0 |
0 |
if ($handler) { } |
|
227
|
0 |
0 |
if ($handler) { } |
|
231
|
0 |
0 |
if ($verbose) |
|
233
|
0 |
0 |
if $terminator |
|
248
|
0 |
0 |
if (not $no_check || $verbose) { } |
|
253
|
0 |
0 |
if ($handler) { } |
|
264
|
0 |
0 |
if ($handler) { } |
|
280
|
0 |
0 |
if ($verbose) |
|
283
|
0 |
0 |
if ($error and not $eof && $error =~ /^(2|3)/o) |
|
284
|
0 |
0 |
if ($handler) { } |
|
296
|
0 |
0 |
if ($scp->exitstatus > 0) |
|
297
|
0 |
0 |
if ($handler) { } |
|
316
|
8 |
21 |
if (scalar @parts == 2) { } |
|
325
|
23 |
6 |
if (@parts) |
|
326
|
13 |
10 |
if (@parts > 1) { } |
|
335
|
16 |
13 |
unless ($dest) |
|
343
|
0 |
22 |
if $host and $host =~ /^\[/ and $host =~ /\]$/ |
|
352
|
0 |
0 |
if ($host) |
|
353
|
0 |
0 |
if $host =~ /^\[/ and $host =~ /\]$/ |
|
355
|
0 |
0 |
if eval {
do {
Net::IPv6Addr::ipv6_parse($host)
}
} |