| line |
true |
false |
branch |
|
18
|
1 |
0 |
unless my $f = 'Net::FTP'->new($_[0], 'timeout', 300) |
|
21
|
0 |
0 |
unless $f->login($_[1], $_[2]) |
|
30
|
0 |
0 |
unless ref $ftp eq 'Net::FTP' |
|
35
|
0 |
0 |
if (defined $rootpath) { } |
|
37
|
0 |
0 |
if (length $rootpath) |
|
38
|
0 |
0 |
unless $ftp->cwd($rootpath) or $ftp->mkdir($rootpath, 'recurse') |
|
62
|
0 |
0 |
if $key eq '' |
|
64
|
0 |
0 |
if $ftp->message =~ /no such/i |
|
69
|
0 |
0 |
if defined $mdtm |
|
70
|
0 |
0 |
if $ftp->message =~ / not a plain file/ |
|
79
|
0 |
0 |
if $key eq '' |
|
91
|
0 |
0 |
if defined $result |
|
93
|
0 |
0 |
if $ftp->message =~ /no such/i |
|
96
|
0 |
0 |
unless tie my %newhash, ref $ref, $ftp, "$rootpath$key" |
|
110
|
0 |
0 |
if $key eq '' |
|
112
|
0 |
0 |
if ($refvalue) |
|
114
|
0 |
0 |
if ($CircleTracker{$value}++) |
|
118
|
0 |
0 |
unless $refvalue eq 'HASH' |
|
122
|
0 |
0 |
if (tied %$value) { } |
|
124
|
0 |
0 |
unless tie my %tmp, ref $ref, $ftp, "$rootpath TMP$rnd" |
|
135
|
0 |
0 |
if ($@) |
|
163
|
0 |
0 |
unless tie %$value, ref $ref, $ftp, "$rootpath$key" |
|
174
|
0 |
0 |
if ($@) |
|
182
|
0 |
0 |
unless $ftp->blat($value, "$rootpath TMP$rnd") |
|
183
|
0 |
0 |
unless $ftp->rename("$rootpath TMP$rnd", "$rootpath$key") |
|
195
|
0 |
0 |
if (defined wantarray) |
|
197
|
0 |
0 |
if (ref $retval) |
|
209
|
0 |
0 |
if $key eq '' |
|
212
|
0 |
0 |
unless $ftp->delete("$rootpath$key") |
|
227
|
0 |
0 |
if $ftp->rmdir($rootpath, 'recurse') and $ftp->mkdir($rootpath) |
|
235
|
0 |
0 |
unless $ftp->delete("$rootpath$ent") |
|
260
|
0 |
0 |
unless @{$IteratorListings{$ref};} |
|
262
|
0 |
0 |
if ($key =~ s/^ //) |
|
263
|
0 |
0 |
if ($key = /^ /) { } |
|
|
0 |
0 |
elsif ($key eq 'EMPTY') { } |
|
277
|
0 |
0 |
unless wantarray |