| line |
true |
false |
branch |
|
42
|
10 |
4 |
if defined $what and length $what |
|
51
|
0 |
0 |
if $empty |
|
55
|
0 |
0 |
if -d $_ |
|
56
|
0 |
0 |
if '.' eq substr($_, 0, 1) |
|
60
|
0 |
0 |
if ($empty) |
|
71
|
2 |
5 |
if $empty |
|
75
|
60 |
20 |
unless -d $_ |
|
76
|
7 |
13 |
if '.' eq substr($_, 0, 1) |
|
80
|
2 |
5 |
if ($empty) |
|
91
|
1 |
2 |
if $empty |
|
95
|
3 |
29 |
if '.' eq substr($_, 0, 1) |
|
99
|
1 |
2 |
if ($empty) |
|
109
|
0 |
15 |
unless defined $directory |
|
110
|
0 |
15 |
unless @_ |
|
112
|
1 |
14 |
if ('**' eq $pattern) { } |
|
|
1 |
13 |
elsif ('**/' eq $pattern) { } |
|
|
1 |
12 |
elsif ($pattern =~ s[^\*\*/][]) { } |
|
132
|
3 |
9 |
if ($directory ne '' and '/' ne substr($directory, -1, 1)) |
|
136
|
0 |
81 |
if ($1 eq '\\') { } |
|
|
2 |
79 |
elsif ('/' eq $1 and $pattern =~ s[^\*\*/][]) { } |
|
|
2 |
77 |
elsif ('**' eq $pattern) { } |
|
154
|
1 |
1 |
if ('' eq $pattern) |
|
196
|
0 |
16 |
if $part ne '**' and 0 <= index($part, '**') |
|
206
|
2 |
6 |
if $listmatch |
|
234
|
2 |
151 |
if $pattern =~ m[^/+$] |
|
239
|
91 |
60 |
if ($options{'pathMode'}) |
|
240
|
21 |
70 |
if $pattern =~ s/^!// |
|
241
|
15 |
76 |
if $pattern =~ s[/$][] |
|
242
|
22 |
69 |
if $pattern =~ m[/] |
|
283
|
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) { } |
|
298
|
2 |
0 |
if ($2 =~ /\*\*/) |
|
306
|
3 |
146 |
$options{'ignoreCase'} ? : |
|
315
|
1 |
30 |
if $@ |
|
317
|
8 |
22 |
unless $string =~ /$transpiled/ |
|
325
|
7 |
197 |
if $string =~ s[/$][] |
|
332
|
14 |
190 |
unless (defined $reftype and $regex_type eq $reftype) |
|
334
|
1 |
13 |
if $@ |
|
338
|
138 |
65 |
unless $flags & 2 |
|
341
|
30 |
173 |
if ($flags & 4) |
|
342
|
10 |
20 |
unless $options{'isDirectory'} |
|
347
|
115 |
88 |
if ($match) |
|
348
|
35 |
80 |
if ($negated) { } |
|
355
|
52 |
36 |
if ($full_path =~ s[/[^/]*$][]) |
|
359
|
10 |
26 |
if $negated |