| line |
true |
false |
branch |
|
32
|
0 |
5 |
if $$ftp{'remote_dir'} |
|
41
|
0 |
13 |
unless (-r $file) |
|
42
|
0 |
0 |
unless $$ftp{'quiet_mode'} |
|
47
|
0 |
13 |
unless ($ftp->_conn->put($file, $tmpname)) |
|
48
|
0 |
0 |
unless $$ftp{'quiet_mode'} |
|
57
|
2 |
11 |
if ($Net::FTP::Simple::EVAL_ERROR =~ /'rename' failed after \d+ attempts/ms) { } |
|
|
0 |
11 |
elsif ($Net::FTP::Simple::EVAL_ERROR) { } |
|
66
|
4 |
7 |
if ($try_count > 1) |
|
74
|
5 |
0 |
wantarray ? : |
|
88
|
0 |
4 |
if (exists $$ftp{'remote_dir'}) |
|
89
|
0 |
0 |
unless $ftp->_conn->cwd($$ftp{'remote_dir'}) |
|
103
|
4 |
8 |
if ($Net::FTP::Simple::EVAL_ERROR =~ /'rename' failed after \d+ attempts/ms) { } |
|
|
0 |
8 |
elsif ($Net::FTP::Simple::EVAL_ERROR) { } |
|
112
|
4 |
4 |
if ($try_count > 1) |
|
124
|
4 |
0 |
wantarray ? : |
|
138
|
0 |
0 |
if ($$ftp{'remote_dir'}) |
|
140
|
0 |
0 |
unless $ftp->_conn->cwd($$ftp{'remote_dir'}) |
|
145
|
0 |
0 |
unless (exists $$ftp{'files'}) |
|
146
|
0 |
0 |
if (exists $$ftp{'file_filter'}) { } |
|
159
|
0 |
0 |
unless ($ftp->_conn->get($file, $basename)) |
|
160
|
0 |
0 |
unless $$ftp{'quiet_mode'} |
|
167
|
0 |
0 |
if ($$ftp{'delete_after'}) |
|
168
|
0 |
0 |
unless $ftp->_conn->delete($file) |
|
174
|
0 |
0 |
wantarray ? : |
|
188
|
0 |
4 |
if ($$ftp{'remote_dir'}) |
|
190
|
0 |
0 |
unless $ftp->_conn->cwd($$ftp{'remote_dir'}) |
|
198
|
4 |
0 |
wantarray ? : |
|
243
|
1 |
21 |
unless $$obj{'server'} |
|
251
|
1 |
20 |
if (not $$obj{'conn'}) { } |
|
252
|
1 |
0 |
unless my $ftpconn = 'Net::FTP'->new($$obj{'server'}, 'Debug', $$obj{'debug_ftp'}) |
|
263
|
0 |
20 |
unless $obj->_conn->login(@{$obj;}{'username', 'password'}) |
|
274
|
19 |
3 |
if ($self->_conn) |
|
275
|
0 |
19 |
unless $self->_conn->quit |
|
286
|
0 |
20 |
if (exists $$self{'mode'} and $$self{'mode'} eq 'ascii') { } |
|
287
|
0 |
0 |
unless $self->_conn->ascii |
|
291
|
0 |
20 |
unless $self->_conn->binary |
|
327
|
7 |
15 |
unless $caller |
|
342
|
0 |
2 |
if ($self->_conn and not $self->_conn->ok) |
|
361
|
0 |
0 |
unless ($self->_conn->cwd($$self{'remote_dir'})) |
|
365
|
0 |
0 |
if ($$self{'disable_create_remote_dir'}) |
|
371
|
0 |
0 |
unless $self->_conn->mkdir($$self{'remote_dir'}, 1) |
|
375
|
0 |
0 |
unless $self->_conn->cwd($$self{'remote_dir'}) |
|
388
|
0 |
31 |
unless $conn->can($op) |
|
395
|
8 |
27 |
unless $self->_is_retryable_op($op, $try_count) |
|
411
|
27 |
0 |
exists $retry_wait{$op} ? : |
|
429
|
35 |
0 |
exists $retry_max{$op} ? : |
|
433
|
0 |
35 |
unless exists $retryable_errors{$op} |
|
434
|
8 |
27 |
if $count > $retry_max |
|
437
|
27 |
0 |
if ($caller_error_message =~ /$msg/ms) |
|
459
|
4 |
10 |
unless @remote_list = $self->_conn->dir |
|
470
|
30 |
22 |
unless $mode and $mode =~ /\A-/msx |
|
473
|
3 |
19 |
unless $filename =~ /$filter/msx |
|
481
|
6 |
4 |
wantarray ? : |