| line |
true |
false |
branch |
|
100
|
0 |
0 |
unless my $remote = pop() |
|
102
|
0 |
0 |
unless my $tmpdir = 'File::Tempdir'->new |
|
103
|
0 |
0 |
unless my $local_folder = $tmpdir->name |
|
104
|
0 |
0 |
unless $sftp->setcwd($folder) |
|
105
|
0 |
0 |
unless $sftp->mget($remote, $local_folder) |
|
107
|
0 |
0 |
unless -r $file |
|
110
|
0 |
0 |
if ($backup) { } |
|
|
0 |
0 |
elsif ($self->delete) { } |
|
111
|
0 |
0 |
unless $sftp->mkpath($backup) |
|
112
|
0 |
0 |
unless $sftp->rename($remote, "$backup/$remote") |
|
114
|
0 |
0 |
unless $sftp->remove($remote) |
|
134
|
0 |
0 |
if (@$list) { } |
|
153
|
0 |
0 |
if @_ |
|
154
|
0 |
0 |
unless (defined $self->{'list'}) |
|
164
|
0 |
0 |
unless defined $self->{'list'} and ref $self->{'list'} eq 'ARRAY' |
|
166
|
0 |
0 |
wantarray ? : |
|
200
|
0 |
0 |
if (@_) |
|
205
|
0 |
0 |
unless defined $self->{'host'} |
|
223
|
0 |
0 |
if (@_) |
|
241
|
0 |
0 |
if (@_) |
|
246
|
0 |
0 |
unless defined $self->{'port'} |
|
262
|
0 |
0 |
if (@_) |
|
267
|
0 |
0 |
unless defined $self->{'options'} |
|
268
|
0 |
0 |
unless ref $self->{'options'} eq 'ARRAY' |
|
286
|
0 |
0 |
if (@_) |
|
290
|
0 |
0 |
unless defined $self->{'folder'} |
|
310
|
0 |
0 |
if (@_) |
|
314
|
0 |
0 |
unless defined $self->{'match'} |
|
335
|
0 |
0 |
if @_ |
|
336
|
0 |
0 |
unless defined $self->{'backup'} |
|
353
|
0 |
0 |
if @_ |
|
354
|
0 |
0 |
unless defined $self->{'delete'} |
|
368
|
0 |
0 |
unless (defined $self->{'sftp'}) |
|
370
|
0 |
0 |
unless $params{'host'} = $self->host |
|
371
|
0 |
0 |
if $self->user |
|
372
|
0 |
0 |
if defined $self->port |
|
373
|
0 |
0 |
if @{$self->options;} > 0 |
|
379
|
0 |
0 |
$params{'user'} ? : |
|
|
0 |
0 |
$params{'port'} ? : |
|
|
0 |
0 |
if $sftp->error |