| line |
true |
false |
branch |
|
28
|
2 |
0 |
if scalar @_ > 1 |
|
34
|
0 |
0 |
if (ref $self->ftp eq 'Net::FTP') { } |
|
37
|
0 |
0 |
if ($self->DEBUG) |
|
38
|
0 |
0 |
$res ? : |
|
43
|
0 |
0 |
unless $res |
|
55
|
0 |
0 |
unless eval {
do {
$self->ftp->cwd('/backup');
foreach my $file ('mysql.tar.gz', 'files.tar.gz', 'html.tar.gz') {
$self->ftp->binary;
my $res = $self->ftp->get($file, $path . '/' . $self->prefix . $file);
if ($self->DEBUG) {
my $msg = $res ? "Downloaded $file" : "Error: Cannot download $file : " . $self->ftp->message;
$self->debug->($msg);
} ;
} ;
1
}
} |
|
60
|
0 |
0 |
if ($self->DEBUG) |
|
61
|
0 |
0 |
$res ? : |
|
68
|
0 |
0 |
if ($error and $self->DEBUG) |
|
69
|
0 |
0 |
if ($error =~ /Can't call method/) |
|
75
|
0 |
0 |
if $error |
|
81
|
2 |
4 |
if defined $pwd |
|
87
|
2 |
4 |
if defined $user |
|
93
|
2 |
7 |
if defined $server |
|
99
|
3 |
0 |
unless (ref $$self{'ftp'} eq 'Net::FTP') |
|
112
|
2 |
0 |
if (@_ == 2) |
|
123
|
4 |
0 |
if (@_ == 2) |
|
132
|
0 |
2 |
if ref $self->ftp eq 'Net::FTP' |