| line |
true |
false |
branch |
|
54
|
3 |
1 |
unless not -l $path and -e _ |
|
59
|
1 |
4 |
unless -l $path |
|
63
|
4 |
0 |
if ($path =~ m[(.+)/(.+)]s) { } |
|
65
|
0 |
4 |
unless defined $path |
|
76
|
1 |
7 |
unless -d $dir |
|
77
|
0 |
7 |
unless opendir my $dh, $dir |
|
79
|
14 |
6 |
if $e eq "." or $e eq ".." |
|
87
|
2 |
8 |
unless -d $dir |
|
88
|
0 |
8 |
unless opendir my $dh, $dir |
|
90
|
16 |
6 |
if $e eq "." or $e eq ".." |
|
100
|
1 |
10 |
unless -d $dir |
|
101
|
0 |
10 |
unless opendir my $dh, $dir |
|
103
|
20 |
9 |
if $e eq "." or $e eq ".." |
|
104
|
4 |
5 |
unless -f "$dir/$e" |
|
112
|
1 |
7 |
unless -d $dir |
|
113
|
0 |
7 |
unless opendir my $dh, $dir |
|
116
|
14 |
8 |
if $e eq "." or $e eq ".." |
|
117
|
3 |
5 |
unless -f "$dir/$e" |
|
120
|
3 |
1 |
$has_files ? : |
|
125
|
1 |
10 |
unless -d $dir |
|
126
|
0 |
10 |
unless opendir my $dh, $dir |
|
128
|
20 |
9 |
if $e eq "." or $e eq ".." |
|
129
|
5 |
4 |
unless $e =~ /\A\./ |
|
130
|
1 |
3 |
unless -f "$dir/$e" |
|
138
|
1 |
6 |
unless -d $dir |
|
139
|
0 |
6 |
unless opendir my $dh, $dir |
|
142
|
12 |
6 |
if $e eq "." or $e eq ".." |
|
143
|
3 |
3 |
unless $e =~ /\A\./ |
|
144
|
1 |
2 |
unless -f "$dir/$e" |
|
147
|
1 |
1 |
$has_dot_files ? : |
|
152
|
1 |
10 |
unless -d $dir |
|
153
|
0 |
10 |
unless opendir my $dh, $dir |
|
155
|
20 |
10 |
if $e eq "." or $e eq ".." |
|
156
|
4 |
6 |
if $e =~ /\A\./ |
|
157
|
3 |
3 |
unless -f "$dir/$e" |
|
165
|
1 |
6 |
unless -d $dir |
|
166
|
0 |
6 |
unless opendir my $dh, $dir |
|
169
|
12 |
5 |
if $e eq "." or $e eq ".." |
|
170
|
3 |
2 |
if $e =~ /\A\./ |
|
171
|
1 |
1 |
unless -f "$dir/$e" |
|
174
|
1 |
1 |
$has_nondot_files ? : |
|
179
|
1 |
11 |
unless -d $dir |
|
180
|
0 |
11 |
unless opendir my $dh, $dir |
|
182
|
22 |
10 |
if $e eq "." or $e eq ".." |
|
183
|
6 |
4 |
if -l "$dir/$e" |
|
184
|
2 |
2 |
unless -d _ |
|
192
|
1 |
8 |
unless -d $dir |
|
193
|
0 |
8 |
unless opendir my $dh, $dir |
|
196
|
16 |
8 |
if $e eq "." or $e eq ".." |
|
197
|
4 |
4 |
unless -d "$dir/$e" |
|
200
|
3 |
1 |
$has_subdirs ? : |
|
205
|
1 |
8 |
unless -d $dir |
|
206
|
0 |
8 |
unless opendir my $dh, $dir |
|
208
|
16 |
7 |
if $e eq "." or $e eq ".." |
|
209
|
3 |
4 |
if -l "$dir/$e" |
|
210
|
2 |
2 |
unless -d _ |
|
217
|
1 |
5 |
unless -d $dir |
|
218
|
0 |
5 |
unless opendir my $dh, $dir |
|
220
|
10 |
4 |
if $e eq "." or $e eq ".." |
|
221
|
2 |
2 |
unless $e =~ /\A\./ |
|
222
|
0 |
2 |
if -l "$dir/$e" |
|
223
|
1 |
1 |
unless -d _ |
|
231
|
1 |
8 |
unless -d $dir |
|
232
|
0 |
8 |
unless opendir my $dh, $dir |
|
235
|
16 |
8 |
if $e eq "." or $e eq ".." |
|
236
|
4 |
4 |
unless $e =~ /\A\./ |
|
237
|
2 |
2 |
unless -d "$dir/$e" |
|
240
|
1 |
1 |
$has_dot_subdirs ? : |
|
245
|
1 |
5 |
unless -d $dir |
|
246
|
0 |
5 |
unless opendir my $dh, $dir |
|
248
|
10 |
4 |
if $e eq "." or $e eq ".." |
|
249
|
2 |
2 |
if $e =~ /\A\./ |
|
250
|
0 |
2 |
if -l "$dir/$e" |
|
251
|
1 |
1 |
unless -d _ |
|
259
|
1 |
8 |
unless -d $dir |
|
260
|
0 |
8 |
unless opendir my $dh, $dir |
|
263
|
16 |
7 |
if $e eq "." or $e eq ".." |
|
264
|
4 |
3 |
if $e =~ /\A\./ |
|
265
|
2 |
1 |
unless -d "$dir/$e" |
|
268
|
1 |
1 |
$has_nondot_subdirs ? : |
|
274
|
0 |
2 |
unless opendir my $dh, $dir |
|
275
|
7 |
2 |
if $_ ne "." |
|
283
|
0 |
1 |
unless opendir my $dh, $dir |
|
284
|
4 |
2 |
if $_ ne "." and $_ ne ".." |
|
292
|
0 |
1 |
unless opendir my $dh, $dir |
|
293
|
4 |
2 |
if $_ ne "." and $_ ne ".." |
|
301
|
0 |
1 |
unless opendir my $dh, $dir |
|
302
|
2 |
3 |
if $_ ne "." and $_ ne ".." and /\A\./ |
|
310
|
0 |
1 |
unless opendir my $dh, $dir |
|
311
|
2 |
3 |
if $_ ne "." and $_ ne ".." and not /\A\./ |
|
319
|
0 |
2 |
unless opendir my $dh, $dir |
|
320
|
4 |
3 |
if $_ ne "." and $_ ne ".." and not -l "$dir/$_" |
|
328
|
0 |
2 |
unless opendir my $dh, $dir |
|
329
|
5 |
4 |
if $_ ne "." and $_ ne ".." |
|
337
|
0 |
1 |
unless opendir my $dh, $dir |
|
338
|
2 |
2 |
if $_ ne "." and $_ ne ".." and /\A\./ and not -l "$dir/$_" |
|
346
|
0 |
1 |
unless opendir my $dh, $dir |
|
347
|
2 |
2 |
if $_ ne "." and $_ ne ".." and not /\A\./ and not -l "$dir/$_" |
|
355
|
0 |
3 |
unless opendir my $dh, $dir |
|
358
|
6 |
3 |
if $e eq "." or $e eq ".." |
|
359
|
0 |
3 |
unless -f "$dir/$e" |
|
360
|
1 |
2 |
if defined $res |
|
363
|
1 |
1 |
unless defined $res |
|
370
|
0 |
3 |
unless opendir my $dh, $dir |
|
373
|
6 |
3 |
if $e eq "." or $e eq ".." |
|
374
|
0 |
3 |
unless -d "$dir/$e" |
|
375
|
1 |
2 |
if defined $res |
|
378
|
1 |
1 |
unless defined $res |