| line |
true |
false |
branch |
|
44
|
0 |
4 |
if (my $file = $$self{'Common'}{'STDERR'}) |
|
45
|
0 |
0 |
unless open DUP, ">$file" |
|
50
|
4 |
0 |
if $$self{'Debug'} |
|
72
|
0 |
11 |
if @_ % 2 |
|
92
|
42 |
0 |
if ($key) { } |
|
93
|
36 |
6 |
if (defined $$self{'Common'}{$key}) { } |
|
104
|
0 |
6 |
unless $_[0]{'Common'}{'Host'} |
|
122
|
0 |
5 |
if (@_ % 2) |
|
136
|
1 |
4 |
unless $ftp_session |
|
145
|
4 |
0 |
if ($self->GetCommon('User') and $self->GetCommon('Pass')) { } |
|
156
|
0 |
0 |
unless $session and $self->Common('FTPSession', $ftp_session) and return $ftp_session |
|
170
|
0 |
2 |
if (not defined $ls) { } |
|
187
|
0 |
1 |
if (not defined $dir) { } |
|
212
|
12 |
0 |
if $$self{'Debug'} |
|
246
|
12 |
0 |
if $$self{'Debug'} |
|
259
|
0 |
12 |
if ($' =~ m[\s*->\s*([A-Za-z0-9.-/]*)]) |
|
272
|
12 |
0 |
if $$self{'Debug'} |
|
298
|
1 |
0 |
if $$self{'Debug'} |
|
310
|
0 |
0 |
if $$self{'Debug'} |
|
332
|
0 |
0 |
unless my $session = $self->GetCommon('FTPSession') |
|
336
|
0 |
0 |
$session->pwd ? : |
|
344
|
0 |
0 |
if $self->connected |
|
351
|
0 |
0 |
if my $prepped = $self->GetCommon('FTPSession') |
|
372
|
2 |
1 |
unless $self->GetCommon('LocalDir') |
|
375
|
3 |
0 |
if ($$self{'Common'}{'RemoteDir'}) { } |
|
407
|
0 |
0 |
if ($self->GetCommon('LocalFile')) { } |
|
418
|
0 |
0 |
if ($r = $ftp->get($self->GetCommon('RemoteFile'), $local_file)) { } |
|
453
|
0 |
0 |
if (bad_filename($fa{'LocalFile'})) |
|
458
|
0 |
0 |
if $$self{'Debug'} |
|
462
|
0 |
0 |
$fa{'RemoteFile'} ? : |
|
465
|
0 |
0 |
if $$self{'Debug'} |
|
467
|
0 |
0 |
unless $ftp->put($lf, $RF) |