| line |
true |
false |
branch |
|
34
|
0 |
0 |
if (ref $opts eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $opts eq 'HASH') { } |
|
54
|
0 |
0 |
if (ref $opts eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $opts eq 'HASH') { } |
|
63
|
0 |
0 |
unless ($options{'wanted'}) |
|
67
|
0 |
0 |
unless ($options{'fstype'}) |
|
70
|
0 |
0 |
if ($$res[0] == CMD_OK()) |
|
71
|
0 |
0 |
if ($$res[1] =~ /windows/i) |
|
77
|
0 |
0 |
unless defined(my $cwd = $self->pwd) |
|
79
|
0 |
0 |
if $cwd |
|
82
|
0 |
0 |
$d =~ m[\A/] ? : |
|
|
0 |
0 |
unless &recursive($self, $d =~ m[\A/] ? '' : $cwd, \%options, $d, 0) |
|
102
|
0 |
0 |
if defined $$opts{'max_depth'} and $depth > $$opts{'max_depth'} |
|
108
|
0 |
0 |
if ($$opts{'no_chdir'}) { } |
|
109
|
0 |
0 |
unless $entries = _dir_entries($self, $opts, $directory, undef, undef, undef, $depth == 0) |
|
113
|
0 |
0 |
unless @$entries |
|
115
|
0 |
0 |
if ($depth == 0) |
|
116
|
0 |
0 |
unless (grep {$$_{'data'}[0] eq '.';} @$entries) |
|
117
|
0 |
0 |
unless build_start_dir($self, $opts, $entries, $directory, dirname($directory)) |
|
126
|
0 |
0 |
unless defined($orig_cwd = $self->pwd) |
|
128
|
0 |
0 |
if ($orig_cwd) |
|
132
|
0 |
0 |
unless $self->cwd($directory) |
|
134
|
0 |
0 |
unless $entries = _dir_entries($self, $opts, '.', undef, undef, undef, $depth == 0) |
|
139
|
0 |
0 |
unless defined($dir = $self->pwd) |
|
141
|
0 |
0 |
if ($dir) { } |
|
|
0 |
0 |
elsif (defined $dir) { } |
|
148
|
0 |
0 |
if ($depth == 0) |
|
149
|
0 |
0 |
unless (grep {$$_{'data'}[0] eq '.';} @$entries) |
|
150
|
0 |
0 |
unless $self->cwd('..') |
|
152
|
0 |
0 |
unless build_start_dir($self, $opts, $entries, $directory, '.') |
|
156
|
0 |
0 |
unless $self->cwd($orig_cwd) |
|
160
|
0 |
0 |
unless (@$entries) |
|
161
|
0 |
0 |
unless $self->cwd($orig_cwd) |
|
177
|
0 |
0 |
if $_ eq '..' |
|
178
|
0 |
0 |
if $_ eq '.' and $depth != 0 |
|
180
|
0 |
0 |
if ($depth == 0) |
|
181
|
0 |
0 |
if $_ ne '.' |
|
185
|
0 |
0 |
$depth == 0 ? : |
|
186
|
0 |
0 |
if $$opts{'no_chdir'} and $depth != 0 |
|
189
|
0 |
0 |
if $cwd |
|
190
|
0 |
0 |
if $cwd |
|
196
|
0 |
0 |
if ($mlsd_facts) { } |
|
|
0 |
0 |
elsif ($type eq 'f' and $$opts{'fetch_mtime'}) { } |
|
203
|
0 |
0 |
if ($is_directory and $$opts{'bydepth'}) |
|
204
|
0 |
0 |
unless &recursive($self, $cwd, $opts, $next, $depth + 1) |
|
208
|
0 |
0 |
if (not defined $$opts{'min_depth'} or $depth > $$opts{'min_depth'}) |
|
212
|
0 |
0 |
if not $$opts{'no_chdir'} and $depth == 0 |
|
226
|
0 |
0 |
if ($is_directory and not $$opts{'bydepth'}) |
|
227
|
0 |
0 |
unless &recursive($self, $cwd, $opts, $next, $depth + 1) |
|
232
|
0 |
0 |
if ($orig_cwd) |
|
233
|
0 |
0 |
unless $self->cwd($orig_cwd) |
|
244
|
0 |
0 |
if ($current ne '/') |
|
245
|
0 |
0 |
unless my $parent_entries = _dir_entries($self, $opts, $parent) |
|
250
|
0 |
0 |
if $$e{'data'}[0] ne $basename |
|
259
|
0 |
0 |
unless ($detected) |
|
262
|
0 |
0 |
if ($$opts{'fstype'} eq 'dosftp') { } |
|
263
|
0 |
0 |
$hour < 12 ? : |
|
297
|
0 |
0 |
if ($self->isa('Net::FTPSSL')) { } |
|
299
|
0 |
0 |
if ($self->last_status_code != CMD_OK()) { } |
|
314
|
0 |
0 |
if ($self->isa('Net::FTPSSL')) { } |
|
328
|
0 |
0 |
if ($self->isa('Net::FTPSSL')) { } |
|
329
|
0 |
0 |
unless ($self->prep_data_channel) |
|
333
|
0 |
0 |
if ($self->command(@_)->response != CMD_INFO()) |
|
343
|
0 |
0 |
unless (defined $io) |
|
348
|
0 |
0 |
unless (defined $len) |
|
349
|
0 |
0 |
if $! == Net::FTPSSL::EINTR() |
|
359
|
0 |
0 |
if ($self->response != CMD_OK()) |
|
365
|
0 |
0 |
unless my $data = $self->_data_cmd(@_) |
|
373
|
0 |
0 |
unless $data->close |
|
382
|
0 |
0 |
if ($self->isa('Net::FTPSSL')) { } |
|
394
|
0 |
0 |
if ($directory ne '.' and $directory ne '..') |
|
398
|
0 |
0 |
if ($$opts{'use_mlsd'} and defined(my $res = _data_command($self, 'MLSD', $directory))) { } |
|
413
|
0 |
0 |
$2 eq '19' ? : |
|
416
|
0 |
0 |
$data{'type'} =~ /link/ ? : |
|
|
0 |
0 |
$data{'type'} =~ /dir\z/ ? : |
|
431
|
0 |
0 |
wantarray ? : |
|
437
|
0 |
0 |
unless my $list = _list($self, $directory) |
|
445
|
0 |
0 |
unless $dir |
|
447
|
0 |
0 |
if ($preserve_current) |
|
458
|
0 |
0 |
$data ? : |
|
461
|
0 |
0 |
if (@$dir and not @parsed) |
|
471
|
0 |
0 |
$data ? : |
|
475
|
0 |
0 |
if ($preserve_current) |
|
482
|
0 |
0 |
wantarray ? : |