line |
true |
false |
branch |
42
|
17 |
7 |
if defined $what and length $what |
51
|
4 |
10 |
if $empty |
55
|
122 |
42 |
unless -d $_ |
56
|
14 |
28 |
if '.' eq substr($_, 0, 1) |
60
|
4 |
10 |
if ($empty) |
71
|
2 |
4 |
if $empty |
75
|
6 |
60 |
if '.' eq substr($_, 0, 1) |
79
|
2 |
4 |
if ($empty) |
89
|
0 |
31 |
unless defined $directory |
90
|
0 |
31 |
unless @_ |
92
|
2 |
29 |
if ('**' eq $pattern) { } |
|
2 |
27 |
elsif ('**/' eq $pattern) { } |
|
2 |
25 |
elsif ($pattern =~ s[^\*\*/][]u) { } |
112
|
7 |
18 |
if ($directory ne '' and '/' ne substr($directory, -1, 1)) |
116
|
0 |
174 |
if ($1 eq '\\') { } |
|
4 |
170 |
elsif ('/' eq $1 and $pattern =~ s[^\*\*/][]u) { } |
|
4 |
166 |
elsif ('**' eq $pattern) { } |
134
|
2 |
2 |
if ('' eq $pattern) |
176
|
0 |
32 |
if $part ne '**' and 0 <= index($part, '**') |
186
|
2 |
6 |
if $listmatch |
214
|
2 |
151 |
if $pattern =~ m[^/+$]u |
219
|
91 |
60 |
if ($options{'pathMode'}) |
220
|
21 |
70 |
if $pattern =~ s/^!//u |
221
|
15 |
76 |
if $pattern =~ s[/$][]u |
222
|
22 |
69 |
if $pattern =~ m[/]u |
263
|
8 |
1815 |
if ('\\' eq substr($2, 0, 1)) { } |
|
2 |
1813 |
elsif ('**' eq $2) { } |
|
8 |
1805 |
elsif ('/**' eq $2) { } |
|
16 |
1789 |
elsif ('.' eq $2) { } |
|
13 |
1776 |
elsif ('*' eq $2) { } |
|
4 |
1772 |
elsif ('?' eq $2) { } |
|
35 |
1737 |
elsif ('[' eq substr($2, 0, 1)) { } |
|
2 |
1735 |
elsif (length $2) { } |
278
|
2 |
0 |
if ($2 =~ /\*\*/u) |
286
|
3 |
146 |
$options{'ignoreCase'} ? : |
295
|
1 |
30 |
if $@ |
297
|
8 |
22 |
unless $string =~ /$transpiled/u |
305
|
7 |
197 |
if $string =~ s[/$][]u |
312
|
14 |
190 |
unless (defined $reftype and $regex_type eq $reftype) |
314
|
1 |
13 |
if $@ |
318
|
138 |
65 |
unless $flags & 2 |
321
|
30 |
173 |
if ($flags & 4) |
322
|
10 |
20 |
unless $options{'isDirectory'} |
327
|
115 |
88 |
if ($match) |
328
|
35 |
80 |
if ($negated) { } |
335
|
52 |
36 |
if ($full_path =~ s[/[^/]*$][]u) |
339
|
10 |
26 |
if $negated |