| line |
true |
false |
branch |
|
19
|
0 |
0 |
if defined $ftp |
|
49
|
0 |
0 |
if ($Net::FTP::Recursive::options{'SymlinkFollow'}) |
|
69
|
0 |
0 |
if $Net::FTP::Recursive::options{'MatchAll'} |
|
72
|
0 |
0 |
if $Net::FTP::Recursive::options{'OmitAll'} |
|
75
|
0 |
0 |
if $ftp->debug |
|
89
|
0 |
0 |
if ($file->is_plainfile) { } |
|
|
0 |
0 |
elsif ($file->is_directory) { } |
|
|
0 |
0 |
elsif ($file->is_symlink) { } |
|
91
|
0 |
0 |
if ($Net::FTP::Recursive::options{'MatchFiles'} and not $filename =~ /$Net::FTP::Recursive::options{'MatchFiles'}/ or $Net::FTP::Recursive::options{'OmitFiles'} and $filename =~ /$Net::FTP::Recursive::options{'OmitFiles'}/) |
|
100
|
0 |
0 |
if ($Net::FTP::Recursive::options{'FlattenTree'} and $Net::FTP::Recursive::filesSeen{$filename}) { } |
|
101
|
0 |
0 |
if $ftp->debug |
|
108
|
0 |
0 |
if $ftp->debug |
|
114
|
0 |
0 |
if $Net::FTP::Recursive::options{'FlattenTree'} |
|
116
|
0 |
0 |
if ($Net::FTP::Recursive::options{'RemoveRemoteFiles'}) |
|
117
|
0 |
0 |
if ($Net::FTP::Recursive::options{'CheckSizes'}) { } |
|
118
|
0 |
0 |
if (-e $filename and -s $filename == $file->size) { } |
|
120
|
0 |
0 |
if $ftp->debug |
|
123
|
0 |
0 |
if $ftp->debug |
|
129
|
0 |
0 |
if ($get_success) { } |
|
131
|
0 |
0 |
if $ftp->debug |
|
134
|
0 |
0 |
if $ftp->debug |
|
143
|
0 |
0 |
if ($Net::FTP::Recursive::options{'MatchDirs'} and not $filename =~ /$Net::FTP::Recursive::options{'MatchDirs'}/ or $Net::FTP::Recursive::options{'OmitDirs'} and $filename =~ /$Net::FTP::Recursive::options{'OmitDirs'}/) |
|
152
|
0 |
0 |
if ($Net::FTP::Recursive::options{'SymlinkFollow'}) |
|
163
|
0 |
0 |
if ($Net::FTP::Recursive::options{'SymlinkIgnore'}) |
|
164
|
0 |
0 |
if $ftp->debug |
|
166
|
0 |
0 |
if ($Net::FTP::Recursive::options{'RemoveRemoteFiles'}) |
|
168
|
0 |
0 |
if $ftp->debug |
|
174
|
0 |
0 |
if ($Net::FTP::Recursive::options{'MatchLinks'} and not $filename =~ /$Net::FTP::Recursive::options{'MatchLinks'}/ or $Net::FTP::Recursive::options{'OmitLinks'} and $filename =~ /$Net::FTP::Recursive::options{'OmitLinks'}/) |
|
184
|
0 |
0 |
if $ftp->debug |
|
189
|
0 |
0 |
if ($ftp->cwd($file->filename)) |
|
194
|
0 |
0 |
if (not $is_directory and $Net::FTP::Recursive::options{'SymlinkCopy'}) { } |
|
|
0 |
0 |
elsif ($is_directory and $Net::FTP::Recursive::options{'SymlinkFollow'}) { } |
|
|
0 |
0 |
elsif ($Net::FTP::Recursive::options{'SymlinkLink'}) { } |
|
201
|
0 |
0 |
if ($Net::FTP::Recursive::options{'FlattenTree'} and $Net::FTP::Recursive::filesSeen{$filename}) { } |
|
202
|
0 |
0 |
if $ftp->debug |
|
210
|
0 |
0 |
if $ftp->debug |
|
218
|
0 |
0 |
if ($get_success and $Net::FTP::Recursive::options{'RemoveRemoteFiles'}) |
|
221
|
0 |
0 |
if $ftp->debug |
|
246
|
0 |
0 |
if ($Net::FTP::Recursive::dirsSeen{$remote_abs_path} or $remote_abs_path =~ s/^$Net::FTP::Recursive::options{'InitialDir'}/$Net::FTP::Recursive::dirsSeen{$Net::FTP::Recursive::options{'InitialDir'}}/) { } |
|
250
|
0 |
0 |
unless ($Net::FTP::Recursive::options{'FlattenTree'}) |
|
251
|
0 |
0 |
if $ftp->debug |
|
255
|
0 |
0 |
if $ftp->debug |
|
268
|
0 |
0 |
if $ftp->debug |
|
274
|
0 |
0 |
if ($Net::FTP::Recursive::options{'RemoveRemoteFiles'}) |
|
277
|
0 |
0 |
if $ftp->debug |
|
288
|
0 |
0 |
if $ftp->debug |
|
293
|
0 |
0 |
if $ftp->debug |
|
314
|
0 |
0 |
if ($Net::FTP::Recursive::options{'RemoveRemoteFiles'}) |
|
317
|
0 |
0 |
if $ftp->debug |
|
324
|
0 |
0 |
unless $get_success |
|
339
|
0 |
0 |
unless ($ftp->cwd($filename)) |
|
340
|
0 |
0 |
if $ftp->debug |
|
348
|
0 |
0 |
unless ($Net::FTP::Recursive::options{'FlattenTree'}) |
|
349
|
0 |
0 |
if $ftp->debug |
|
358
|
0 |
0 |
unless (chdir $filename) |
|
359
|
0 |
0 |
if $ftp->debug |
|
374
|
0 |
0 |
if ($Net::FTP::Recursive::options{'RemoveRemoteFiles'} and $file->is_symlink) |
|
380
|
0 |
0 |
if $ftp->debug |
|
385
|
0 |
0 |
if $ftp->debug |
|
388
|
0 |
0 |
if ($file->is_symlink) { } |
|
395
|
0 |
0 |
unless $Net::FTP::Recursive::options{'FlattenTree'} |
|
397
|
0 |
0 |
if ($Net::FTP::Recursive::options{'RemoveRemoteFiles'}) |
|
398
|
0 |
0 |
if ($file->is_symlink) { } |
|
399
|
0 |
0 |
if $ftp->debug |
|
404
|
0 |
0 |
if $ftp->debug |
|
444
|
0 |
0 |
if $ftp->debug |
|
454
|
0 |
0 |
if ($file->is_plainfile) { } |
|
|
0 |
0 |
elsif ($file->is_directory) { } |
|
|
0 |
0 |
elsif ($file->is_symlink) { } |
|
458
|
0 |
0 |
if ($Net::FTP::Recursive::options{'FlattenTree'} and $Net::FTP::Recursive::filesSeen{$filename}) { } |
|
459
|
0 |
0 |
if $ftp->debug |
|
465
|
0 |
0 |
if $ftp->debug |
|
473
|
0 |
0 |
if $Net::FTP::Recursive::options{'FlattenTree'} |
|
475
|
0 |
0 |
if ($Net::FTP::Recursive::options{'RemoveLocalFiles'} and $Net::FTP::Recursive::options{'CheckSizes'}) { } |
|
|
0 |
0 |
elsif ($Net::FTP::Recursive::options{'RemoveLocalFiles'}) { } |
|
476
|
0 |
0 |
if ($ftp->size($filename) == -s $filename) { } |
|
477
|
0 |
0 |
if $ftp->debug |
|
483
|
0 |
0 |
if $ftp->debug |
|
490
|
0 |
0 |
if $ftp->debug |
|
507
|
0 |
0 |
if ($Net::FTP::Recursive::options{'SymlinkIgnore'}) { } |
|
508
|
0 |
0 |
if $ftp->debug |
|
512
|
0 |
0 |
if ($Net::FTP::Recursive::options{'RemoveLocalFiles'}) |
|
513
|
0 |
0 |
if $ftp->debug |
|
522
|
0 |
0 |
if (-f $filename and $Net::FTP::Recursive::options{'SymlinkCopy'}) { } |
|
|
0 |
0 |
elsif (-d $file->filename and $Net::FTP::Recursive::options{'SymlinkFollow'}) { } |
|
523
|
0 |
0 |
if ($Net::FTP::Recursive::options{'FlattenTree'} and $Net::FTP::Recursive::filesSeen{$filename}) { } |
|
524
|
0 |
0 |
if $ftp->debug |
|
532
|
0 |
0 |
if $ftp->debug |
|
538
|
0 |
0 |
if $Net::FTP::Recursive::options{'FlattenTree'} |
|
540
|
0 |
0 |
if ($put_success and $Net::FTP::Recursive::options{'RemoveLocalFiles'}) |
|
541
|
0 |
0 |
if $ftp->debug |
|
556
|
0 |
0 |
unless $put_success |
|
570
|
0 |
0 |
unless (chdir $filename) |
|
571
|
0 |
0 |
if $ftp->debug |
|
582
|
0 |
0 |
unless ($ftp->cwd($filename)) |
|
583
|
0 |
0 |
if $ftp->debug |
|
586
|
0 |
0 |
unless ($ftp->mkdir($filename)) |
|
587
|
0 |
0 |
if $ftp->debug |
|
596
|
0 |
0 |
unless ($ftp->cwd($filename)) |
|
597
|
0 |
0 |
if $ftp->debug |
|
608
|
0 |
0 |
if $ftp->debug |
|
613
|
0 |
0 |
if $ftp->debug |
|
619
|
0 |
0 |
if ($file->is_symlink) { } |
|
621
|
0 |
0 |
if $Net::FTP::Recursive::options{'RemoveLocalFiles'} |
|
624
|
0 |
0 |
if $Net::FTP::Recursive::options{'RemoveLocalFiles'} |
|
639
|
0 |
0 |
unless ($Net::FTP::Recursive::options{'Filehandle'}) |
|
660
|
0 |
0 |
if $ftp->debug |
|
664
|
0 |
0 |
unless $Net::FTP::Recursive::options{'FilenameOnly'} |
|
672
|
0 |
0 |
unless $file |
|
680
|
0 |
0 |
if ($file->is_symlink and $ftp->cwd($filename)) { } |
|
|
0 |
0 |
elsif ($file->is_directory) { } |
|
699
|
0 |
0 |
unless ($Net::FTP::Recursive::dirsSeen{$remote_abs_path} or $remote_abs_path =~ /^$Net::FTP::Recursive::options{'InitialDir'}/) |
|
709
|
0 |
0 |
if ($ftp->debug) |
|
723
|
0 |
0 |
if ($Net::FTP::Recursive::options{'FilenameOnly'} and $Net::FTP::Recursive::options{'PrintType'}) |
|
727
|
0 |
0 |
if $Net::FTP::Recursive::options{'FilenameOnly'} |
|
731
|
0 |
0 |
if ($Net::FTP::Recursive::options{'FilenameOnly'}) { } |
|
733
|
0 |
0 |
if ($Net::FTP::Recursive::options{'PrintType'}) |
|
735
|
0 |
0 |
if ($file->is_symlink) { } |
|
|
0 |
0 |
elsif ($file->is_plainfile) { } |
|
748
|
0 |
0 |
unless $Net::FTP::Recursive::options{'FilenameOnly'} |
|
753
|
0 |
0 |
unless ($ftp->cwd($dirname)) |
|
754
|
0 |
0 |
if $ftp->debug |
|
761
|
0 |
0 |
if $ftp->debug |
|
766
|
0 |
0 |
if $ftp->debug |
|
769
|
0 |
0 |
if ($dir->is_symlink) { } |
|
813
|
0 |
0 |
if $ftp->debug |
|
821
|
0 |
0 |
if ($file->is_plainfile or $file->is_symlink) { } |
|
|
0 |
0 |
elsif ($file->is_directory) { } |
|
825
|
0 |
0 |
unless $del_success |
|
840
|
0 |
0 |
unless ($ftp->cwd($file->filename)) |
|
841
|
0 |
0 |
if $ftp->debug |
|
848
|
0 |
0 |
if $ftp->debug |
|
853
|
0 |
0 |
if $ftp->debug |
|
858
|
0 |
0 |
unless $ftp->rmdir($file->filename) |
|
876
|
0 |
0 |
unless opendir THISDIR, '.' |
|
883
|
0 |
0 |
if $file =~ /^[.]{1,2}$/ |
|
889
|
0 |
0 |
if (-l $file) { } |
|
|
0 |
0 |
elsif (-d $file) { } |
|
|
0 |
0 |
elsif (-f $file) { } |
|
913
|
0 |
0 |
if $file_obj |
|
935
|
0 |
0 |
unless $line =~ /^
(\S+)\s+ #permissions
\d+\s+ #link count
\S+\s+ #user owner
\S+\s+ #group owner
\d+\s+ #size
\w+\s+\w+\s+\S+\s+ #last modification date
(.+?)\s* #filename
(?:->\s*(.+))? #optional link part
$
/x |
|
949
|
0 |
0 |
if $filename =~ /^\.{1,2}$/ |
|
952
|
0 |
0 |
if ($perms =~ /^-/) { } |
|
|
0 |
0 |
elsif ($perms =~ /^d/) { } |
|
|
0 |
0 |
elsif ($perms =~ /^l/) { } |
|
991
|
0 |
0 |
if ($Net::FTP::Recursive::linkMap{$pwd} and not $link_path =~ m[^/]) { } |
|
|
0 |
0 |
elsif ($link_path =~ m[^/]) { } |
|
1075
|
0 |
0 |
unless $realfile_parts[$i] eq $link_parts[$i] |
|
1081
|
0 |
0 |
if ($i == 1) { } |
|
|
0 |
0 |
elsif ($i > $#realfile_parts and $i == $#link_parts) { } |
|
|
0 |
0 |
elsif ($i == $#realfile_parts and $i == $#link_parts) { } |
|
|
0 |
0 |
elsif ($i >= $#link_parts) { } |
|
1095
|
0 |
0 |
if $#link_parts - $i > 0 |
|
1119
|
0 |
0 |
unless defined $$self{'filename'} |
|
1122
|
0 |
0 |
if ($$self{'symlink'} and not $$self{'linkname'}) |