| line |
true |
false |
branch |
|
42
|
17 |
8 |
if defined $what and length $what |
|
51
|
5 |
10 |
if $empty |
|
55
|
126 |
45 |
unless -d $_ |
|
56
|
15 |
30 |
if "." eq substr($_, 0, 1) |
|
60
|
5 |
10 |
if ($empty) |
|
71
|
2 |
4 |
if $empty |
|
75
|
6 |
60 |
if "." eq substr($_, 0, 1) |
|
79
|
2 |
4 |
if ($empty) |
|
89
|
0 |
35 |
unless defined $directory |
|
90
|
0 |
35 |
unless @_ |
|
92
|
2 |
33 |
if ('**' eq $pattern) { } |
|
|
2 |
31 |
elsif ('**/' eq $pattern) { } |
|
|
3 |
28 |
elsif ($pattern =~ s[^\*\*/][]) { } |
|
112
|
9 |
19 |
if ($directory ne "" and "/" ne substr($directory, -1, 1)) |
|
116
|
0 |
189 |
if ($1 eq '\\') { } |
|
|
4 |
185 |
elsif ('/' eq $1 and $pattern =~ s[^\*\*/][]) { } |
|
|
4 |
181 |
elsif ('**' eq $pattern) { } |
|
134
|
2 |
2 |
if ("" eq $pattern) |
|
176
|
0 |
34 |
if $part ne "**" and 0 <= index($part, "**") |
|
186
|
2 |
6 |
if $listmatch |
|
214
|
2 |
151 |
if $pattern =~ m[^/+$] |
|
219
|
91 |
60 |
if ($options{'pathMode'}) |
|
220
|
21 |
70 |
if $pattern =~ s/^!// |
|
221
|
15 |
76 |
if $pattern =~ s[/$][] |
|
222
|
22 |
69 |
if $pattern =~ m[/] |
|
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 =~ /\*\*/) |
|
286
|
3 |
146 |
$options{'ignoreCase'} ? : |
|
295
|
1 |
30 |
if $@ |
|
297
|
8 |
22 |
unless $string =~ /$transpiled/ |
|
305
|
7 |
197 |
if $string =~ s[/$][] |
|
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[/[^/]*$][]) |
|
339
|
10 |
26 |
if $negated |