| line |
true |
false |
branch |
|
25
|
0 |
0 |
unless (defined $option{'-Path'}) |
|
26
|
0 |
0 |
unless (defined $option{'-FPat'}) |
|
27
|
0 |
0 |
unless (defined $option{'-ShowAll'}) |
|
30
|
0 |
0 |
if ($option{'-Directory'}) |
|
32
|
0 |
0 |
if (wantarray and not $option{'-Chdir'} and not $option{'-Create'}) { } |
|
|
0 |
0 |
elsif (not defined $option{'-Chdir'}) { } |
|
39
|
0 |
0 |
if ($option{'-Path'} and -d $option{'-Path'}) { } |
|
41
|
0 |
0 |
if ($dir =~ m[[^/]$]) |
|
45
|
0 |
0 |
if ($option{'-TopDir'}) |
|
46
|
0 |
0 |
if (not -d $option{'-TopDir'}) { } |
|
|
0 |
0 |
elsif ($option{'-TopDir'} =~ m[[^/]$]) { } |
|
49
|
0 |
0 |
if (index $dir, $option{'-TopDir'}) |
|
56
|
0 |
0 |
unless (opendir D, $dir) |
|
57
|
0 |
0 |
if ($option{'-SelDir'}) { } |
|
61
|
0 |
0 |
if ($option{'-ShowAll'}) { } |
|
62
|
0 |
0 |
if (@dotfiles and not $option{'-DisableShowAll'}) |
|
67
|
0 |
0 |
if (@dotfiles and not $option{'-DisableShowAll'}) |
|
73
|
0 |
0 |
if ($option{'-Directory'}) { } |
|
|
0 |
0 |
elsif ($option{'-FPat'}) { } |
|
82
|
0 |
0 |
if ($option{'-Chdir'}) { } |
|
|
0 |
0 |
elsif (not $option{'-SelDir'}) { } |
|
84
|
0 |
0 |
if ($option{'-TopDir'}) { } |
|
86
|
0 |
0 |
if (-1 < index($up, $option{'-TopDir'})) |
|
93
|
0 |
0 |
if ($option{'-Create'}) |
|
94
|
0 |
0 |
if ($option{'-TextFile'}) |
|
95
|
0 |
0 |
if ($option{'-Owned'}) |
|
96
|
0 |
0 |
if ($option{'-Executable'}) |
|
97
|
0 |
0 |
if ($option{'-Writeable'}) |
|
98
|
0 |
0 |
if ($option{'-Readable'}) |
|
102
|
0 |
0 |
if ($option{'-Title'}) { } |
|
105
|
0 |
0 |
if ($option{'-File'}) |
|
107
|
0 |
0 |
if ($multichoice) |
|
110
|
0 |
0 |
unless @new |
|
117
|
0 |
0 |
if ($option{'-ShowAll'} and $new eq 'Hide DotFiles') { } |
|
|
0 |
0 |
elsif (not $option{'-ShowAll'} and $new eq 'Show DotFiles') { } |
|
122
|
0 |
0 |
if ($new eq 'Create New File') |
|
124
|
0 |
0 |
unless ($new) |
|
125
|
0 |
0 |
if ($new =~ m[^/]) { } |
|
129
|
0 |
0 |
if ($option{'-TopDir'}) |
|
130
|
0 |
0 |
if (index $file, $option{'-TopDir'}) |
|
134
|
0 |
0 |
if (-d $file) |
|
135
|
0 |
0 |
if ($option{'-SelDir'}) { } |
|
137
|
0 |
0 |
if ($dir =~ m[[^/]$]) |
|
141
|
0 |
0 |
if (-e $file) |
|
143
|
0 |
0 |
if (-d $1 and -w $1) |
|
144
|
0 |
0 |
unless (-d $1) |
|
147
|
0 |
0 |
unless $new |
|
148
|
0 |
0 |
if ($new eq './' and $option{'-SelDir'}) |
|
149
|
0 |
0 |
if ($new =~ m[^/]) { } |
|
152
|
0 |
0 |
if ($new eq '../') { } |
|
|
0 |
0 |
elsif ($new eq './') { } |
|
|
0 |
0 |
elsif ($file =~ m[/$]) { } |
|
|
0 |
0 |
elsif (-f $file) { } |
|
154
|
0 |
0 |
if ($option{'-SelDir'}) |