| 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) |
|
91
|
0 |
35 |
defined $flags ? : |
|
93
|
0 |
35 |
unless defined $directory |
|
94
|
0 |
35 |
unless @_ |
|
96
|
2 |
33 |
if ('**' eq $pattern) { } |
|
|
2 |
31 |
elsif ('**/' eq $pattern) { } |
|
|
3 |
28 |
elsif ($pattern =~ s[^\*\*/][]) { } |
|
116
|
9 |
19 |
if ($directory ne "" and "/" ne substr($directory, -1, 1)) |
|
120
|
0 |
189 |
if ($1 eq '\\') { } |
|
|
4 |
185 |
elsif ('/' eq $1 and $pattern =~ s[^\*\*/][]) { } |
|
|
4 |
181 |
elsif ('**' eq $pattern) { } |
|
138
|
2 |
2 |
if ("" eq $pattern) |
|
180
|
0 |
34 |
if $part ne "**" and index($part, "**") != -1 |
|
190
|
2 |
6 |
if $listmatch |
|
218
|
2 |
151 |
if $pattern =~ m[^/+$] |
|
223
|
91 |
60 |
if ($options{'pathMode'}) |
|
224
|
21 |
70 |
if $pattern =~ s/^!// |
|
225
|
15 |
76 |
if $pattern =~ s[/$][] |
|
226
|
22 |
69 |
if $pattern =~ m[/] |
|
267
|
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) { } |
|
282
|
2 |
0 |
if ($2 =~ /\*\*/) |
|
290
|
3 |
146 |
$options{'ignoreCase'} ? : |
|
299
|
1 |
30 |
if $@ |
|
301
|
8 |
22 |
unless $string =~ /$transpiled/ |
|
309
|
7 |
197 |
if $string =~ s[/$][] |
|
316
|
14 |
190 |
unless (defined $reftype and $regex_type eq $reftype) |
|
318
|
1 |
13 |
if $@ |
|
322
|
138 |
65 |
unless $flags & 2 |
|
325
|
30 |
173 |
if ($flags & 4) |
|
326
|
10 |
20 |
unless $options{'isDirectory'} |
|
331
|
115 |
88 |
if ($match) |
|
332
|
35 |
80 |
if ($negated) { } |
|
339
|
52 |
36 |
if ($full_path =~ s[/[^/]*$][]) |
|
343
|
10 |
26 |
if $negated |