Branch Coverage

blib/lib/File/Globstar.pm
Criterion Covered Total %
branch 89 94 94.6


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