| line |
true |
false |
branch |
|
55
|
3 |
1 |
unless not -l $path and -e _ |
|
60
|
1 |
4 |
unless -l $path |
|
64
|
4 |
0 |
if ($path =~ m[(.+)/(.+)]s) { } |
|
66
|
0 |
4 |
unless defined $path |
|
77
|
1 |
7 |
unless -d $dir |
|
78
|
0 |
7 |
unless opendir my $dh, $dir |
|
80
|
14 |
6 |
if $e eq "." or $e eq ".." |
|
88
|
2 |
8 |
unless -d $dir |
|
89
|
0 |
8 |
unless opendir my $dh, $dir |
|
91
|
16 |
6 |
if $e eq "." or $e eq ".." |
|
101
|
1 |
10 |
unless -d $dir |
|
102
|
0 |
10 |
unless opendir my $dh, $dir |
|
104
|
20 |
9 |
if $e eq "." or $e eq ".." |
|
105
|
4 |
5 |
unless -f "$dir/$e" |
|
113
|
1 |
7 |
unless -d $dir |
|
114
|
0 |
7 |
unless opendir my $dh, $dir |
|
117
|
14 |
8 |
if $e eq "." or $e eq ".." |
|
118
|
3 |
5 |
unless -f "$dir/$e" |
|
121
|
3 |
1 |
$has_files ? : |
|
126
|
1 |
10 |
unless -d $dir |
|
127
|
0 |
10 |
unless opendir my $dh, $dir |
|
129
|
20 |
9 |
if $e eq "." or $e eq ".." |
|
130
|
5 |
4 |
unless $e =~ /\A\./ |
|
131
|
1 |
3 |
unless -f "$dir/$e" |
|
139
|
1 |
6 |
unless -d $dir |
|
140
|
0 |
6 |
unless opendir my $dh, $dir |
|
143
|
12 |
6 |
if $e eq "." or $e eq ".." |
|
144
|
3 |
3 |
unless $e =~ /\A\./ |
|
145
|
1 |
2 |
unless -f "$dir/$e" |
|
148
|
1 |
1 |
$has_dot_files ? : |
|
153
|
1 |
10 |
unless -d $dir |
|
154
|
0 |
10 |
unless opendir my $dh, $dir |
|
156
|
20 |
10 |
if $e eq "." or $e eq ".." |
|
157
|
4 |
6 |
if $e =~ /\A\./ |
|
158
|
3 |
3 |
unless -f "$dir/$e" |
|
166
|
1 |
6 |
unless -d $dir |
|
167
|
0 |
6 |
unless opendir my $dh, $dir |
|
170
|
12 |
5 |
if $e eq "." or $e eq ".." |
|
171
|
3 |
2 |
if $e =~ /\A\./ |
|
172
|
1 |
1 |
unless -f "$dir/$e" |
|
175
|
1 |
1 |
$has_nondot_files ? : |
|
180
|
1 |
11 |
unless -d $dir |
|
181
|
0 |
11 |
unless opendir my $dh, $dir |
|
183
|
22 |
10 |
if $e eq "." or $e eq ".." |
|
184
|
6 |
4 |
if -l "$dir/$e" |
|
185
|
2 |
2 |
unless -d _ |
|
193
|
1 |
8 |
unless -d $dir |
|
194
|
0 |
8 |
unless opendir my $dh, $dir |
|
197
|
16 |
8 |
if $e eq "." or $e eq ".." |
|
198
|
4 |
4 |
unless -d "$dir/$e" |
|
201
|
3 |
1 |
$has_subdirs ? : |
|
206
|
1 |
8 |
unless -d $dir |
|
207
|
0 |
8 |
unless opendir my $dh, $dir |
|
209
|
16 |
7 |
if $e eq "." or $e eq ".." |
|
210
|
3 |
4 |
if -l "$dir/$e" |
|
211
|
2 |
2 |
unless -d _ |
|
218
|
1 |
5 |
unless -d $dir |
|
219
|
0 |
5 |
unless opendir my $dh, $dir |
|
221
|
10 |
4 |
if $e eq "." or $e eq ".." |
|
222
|
2 |
2 |
unless $e =~ /\A\./ |
|
223
|
0 |
2 |
if -l "$dir/$e" |
|
224
|
1 |
1 |
unless -d _ |
|
232
|
1 |
8 |
unless -d $dir |
|
233
|
0 |
8 |
unless opendir my $dh, $dir |
|
236
|
16 |
8 |
if $e eq "." or $e eq ".." |
|
237
|
4 |
4 |
unless $e =~ /\A\./ |
|
238
|
2 |
2 |
unless -d "$dir/$e" |
|
241
|
1 |
1 |
$has_dot_subdirs ? : |
|
246
|
1 |
5 |
unless -d $dir |
|
247
|
0 |
5 |
unless opendir my $dh, $dir |
|
249
|
10 |
4 |
if $e eq "." or $e eq ".." |
|
250
|
2 |
2 |
if $e =~ /\A\./ |
|
251
|
0 |
2 |
if -l "$dir/$e" |
|
252
|
1 |
1 |
unless -d _ |
|
260
|
1 |
8 |
unless -d $dir |
|
261
|
0 |
8 |
unless opendir my $dh, $dir |
|
264
|
16 |
7 |
if $e eq "." or $e eq ".." |
|
265
|
4 |
3 |
if $e =~ /\A\./ |
|
266
|
2 |
1 |
unless -d "$dir/$e" |
|
269
|
1 |
1 |
$has_nondot_subdirs ? : |
|
273
|
0 |
2 |
ref $_[0] eq 'HASH' ? : |
|
274
|
0 |
2 |
if keys %$opts |
|
279
|
0 |
2 |
unless opendir my $dh, $dir |
|
280
|
7 |
2 |
if $_ ne "." |
|
286
|
0 |
1 |
ref $_[0] eq 'HASH' ? : |
|
287
|
0 |
1 |
if keys %$opts |
|
292
|
0 |
1 |
unless opendir my $dh, $dir |
|
293
|
4 |
2 |
if $_ ne "." and $_ ne ".." |
|
299
|
0 |
1 |
ref $_[0] eq 'HASH' ? : |
|
300
|
0 |
1 |
if keys %$opts |
|
305
|
0 |
1 |
unless opendir my $dh, $dir |
|
306
|
4 |
2 |
if $_ ne "." and $_ ne ".." |
|
312
|
0 |
1 |
ref $_[0] eq 'HASH' ? : |
|
313
|
0 |
1 |
if keys %$opts |
|
318
|
0 |
1 |
unless opendir my $dh, $dir |
|
319
|
2 |
3 |
if $_ ne "." and $_ ne ".." and /\A\./ |
|
325
|
0 |
1 |
ref $_[0] eq 'HASH' ? : |
|
326
|
0 |
1 |
if keys %$opts |
|
331
|
0 |
1 |
unless opendir my $dh, $dir |
|
332
|
2 |
3 |
if $_ ne "." and $_ ne ".." and not /\A\./ |
|
338
|
0 |
2 |
ref $_[0] eq 'HASH' ? : |
|
339
|
0 |
2 |
if keys %$opts |
|
344
|
0 |
2 |
unless opendir my $dh, $dir |
|
345
|
4 |
3 |
if $_ ne "." and $_ ne ".." and not -l "$dir/$_" |
|
351
|
0 |
2 |
ref $_[0] eq 'HASH' ? : |
|
352
|
0 |
2 |
if keys %$opts |
|
357
|
0 |
2 |
unless opendir my $dh, $dir |
|
358
|
5 |
4 |
if $_ ne "." and $_ ne ".." |
|
364
|
0 |
1 |
ref $_[0] eq 'HASH' ? : |
|
365
|
0 |
1 |
if keys %$opts |
|
370
|
0 |
1 |
unless opendir my $dh, $dir |
|
371
|
2 |
2 |
if $_ ne "." and $_ ne ".." and /\A\./ and not -l "$dir/$_" |
|
377
|
0 |
1 |
ref $_[0] eq 'HASH' ? : |
|
378
|
0 |
1 |
if keys %$opts |
|
383
|
0 |
1 |
unless opendir my $dh, $dir |
|
384
|
2 |
2 |
if $_ ne "." and $_ ne ".." and not /\A\./ and not -l "$dir/$_" |
|
390
|
4 |
4 |
ref $_[0] eq 'HASH' ? : |
|
392
|
0 |
8 |
if keys %$opts |
|
397
|
0 |
8 |
unless opendir my $dh, $dir |
|
400
|
16 |
10 |
if $e eq "." or $e eq ".." |
|
402
|
1 |
9 |
if -d _ and $opt_ignore_dir |
|
403
|
1 |
8 |
unless -f _ |
|
404
|
2 |
6 |
if defined $res |
|
407
|
2 |
3 |
unless defined $res |
|
412
|
4 |
4 |
ref $_[0] eq 'HASH' ? : |
|
414
|
0 |
8 |
if keys %$opts |
|
419
|
0 |
8 |
unless opendir my $dh, $dir |
|
422
|
16 |
10 |
if $e eq "." or $e eq ".." |
|
424
|
1 |
9 |
if -f _ and $opt_ignore_file |
|
425
|
1 |
8 |
unless -d _ |
|
426
|
2 |
6 |
if defined $res |
|
429
|
2 |
3 |
unless defined $res |
|
434
|
0 |
3 |
ref $_[0] eq 'HASH' ? : |
|
435
|
0 |
3 |
if keys %$opts |
|
440
|
0 |
3 |
unless opendir my $dh, $dir |
|
443
|
6 |
3 |
if $e eq "." or $e eq ".." |
|
445
|
0 |
3 |
unless -l _ |
|
446
|
1 |
2 |
if defined $res |
|
449
|
1 |
1 |
unless defined $res |