| line |
true |
false |
branch |
|
26
|
0 |
0 |
unless (defined $option{'-Path'}) |
|
27
|
0 |
0 |
unless (defined $option{'-FPat'}) |
|
28
|
0 |
0 |
unless (defined $option{'-ShowAll'}) |
|
31
|
0 |
0 |
if ($option{'-Directory'}) |
|
33
|
0 |
0 |
if (wantarray and not $option{'-Chdir'} and not $option{'-Create'}) { } |
|
|
0 |
0 |
elsif (not defined $option{'-Chdir'}) { } |
|
40
|
0 |
0 |
if ($option{'-Path'} and -d $option{'-Path'}) { } |
|
42
|
0 |
0 |
if ($dir =~ m[[^/]$]) |
|
46
|
0 |
0 |
if ($option{'-TopDir'}) |
|
47
|
0 |
0 |
if (not -d $option{'-TopDir'}) { } |
|
|
0 |
0 |
elsif ($option{'-TopDir'} =~ m[[^/]$]) { } |
|
50
|
0 |
0 |
if (index $dir, $option{'-TopDir'}) |
|
57
|
0 |
0 |
unless (opendir D, $dir) |
|
58
|
0 |
0 |
if ($option{'-SelDir'}) { } |
|
62
|
0 |
0 |
if ($option{'-ShowAll'}) { } |
|
63
|
0 |
0 |
if (@dotfiles and not $option{'-DisableShowAll'}) |
|
68
|
0 |
0 |
if (@dotfiles and not $option{'-DisableShowAll'}) |
|
74
|
0 |
0 |
if ($option{'-Directory'}) { } |
|
|
0 |
0 |
elsif ($option{'-FPat'}) { } |
|
83
|
0 |
0 |
if ($option{'-Chdir'}) { } |
|
|
0 |
0 |
elsif (not $option{'-SelDir'}) { } |
|
85
|
0 |
0 |
if ($option{'-TopDir'}) { } |
|
87
|
0 |
0 |
if (-1 < index($up, $option{'-TopDir'})) |
|
94
|
0 |
0 |
if ($option{'-Create'}) |
|
95
|
0 |
0 |
if ($option{'-TextFile'}) |
|
96
|
0 |
0 |
if ($option{'-Owned'}) |
|
97
|
0 |
0 |
if ($option{'-Executable'}) |
|
98
|
0 |
0 |
if ($option{'-Writeable'}) |
|
99
|
0 |
0 |
if ($option{'-Readable'}) |
|
103
|
0 |
0 |
if ($option{'-Title'}) { } |
|
106
|
0 |
0 |
if ($option{'-File'}) |
|
108
|
0 |
0 |
if ($multichoice) |
|
111
|
0 |
0 |
unless @new |
|
118
|
0 |
0 |
if ($option{'-ShowAll'} and $new eq 'Hide DotFiles') { } |
|
|
0 |
0 |
elsif (not $option{'-ShowAll'} and $new eq 'Show DotFiles') { } |
|
123
|
0 |
0 |
if ($new eq 'Create New File') |
|
125
|
0 |
0 |
unless ($new) |
|
126
|
0 |
0 |
if ($new =~ m[^/]) { } |
|
130
|
0 |
0 |
if ($option{'-TopDir'}) |
|
131
|
0 |
0 |
if (index $file, $option{'-TopDir'}) |
|
135
|
0 |
0 |
if (-d $file) |
|
136
|
0 |
0 |
if ($option{'-SelDir'}) { } |
|
138
|
0 |
0 |
if ($dir =~ m[[^/]$]) |
|
142
|
0 |
0 |
if (-e $file) |
|
144
|
0 |
0 |
if (-d $1 and -w $1) |
|
145
|
0 |
0 |
unless (-d $1) |
|
148
|
0 |
0 |
unless $new |
|
149
|
0 |
0 |
if ($new eq './' and $option{'-SelDir'}) |
|
150
|
0 |
0 |
if ($new =~ m[^/]) { } |
|
153
|
0 |
0 |
if ($new eq '../') { } |
|
|
0 |
0 |
elsif ($new eq './') { } |
|
|
0 |
0 |
elsif ($file =~ m[/$]) { } |
|
|
0 |
0 |
elsif (-f $file) { } |
|
155
|
0 |
0 |
if ($option{'-SelDir'}) |