| line |
true |
false |
branch |
|
28
|
1 |
2 |
unless ($root or $dir) |
|
32
|
8 |
3 |
if ($dir) |
|
48
|
0 |
21 |
if ($ext and substr($f, -1 * length($ext)) eq $ext) |
|
84
|
0 |
0 |
if (not $path or ref $path) |
|
90
|
0 |
0 |
if (not @allParts or scalar @allParts != 4) |
|
105
|
0 |
0 |
if (ref $pathObject ne 'HASH') |
|
110
|
0 |
0 |
if (not defined $root or ref $root) |
|
116
|
0 |
0 |
unless ($dir) |
|
121
|
0 |
0 |
if ($t eq $self->sep) |
|
153
|
0 |
0 |
if ($i >= 0) { } |
|
|
0 |
0 |
elsif (not $resolvedDevice) { } |
|
162
|
0 |
0 |
unless ($path) |
|
171
|
0 |
0 |
if ($device and $resolvedDevice and lc $device ne lc $resolvedDevice) |
|
178
|
0 |
0 |
unless ($resolvedDevice) |
|
181
|
0 |
0 |
unless ($resolvedAbsolute) |
|
185
|
0 |
0 |
if ($resolvedDevice and $resolvedAbsolute) |
|
192
|
0 |
0 |
if ($isUnc) |
|
196
|
0 |
0 |
if $_ |
|
213
|
0 |
0 |
if (@device and $device[1] eq ':') |
|
217
|
0 |
0 |
if $_ |
|
220
|
0 |
0 |
unless ($tail or $isAbsolute) |
|
223
|
0 |
0 |
if ($tail and $trailingSlash) |
|
228
|
0 |
0 |
if ($isUnc) |
|
232
|
0 |
0 |
$isAbsolute ? : |
|
237
|
0 |
0 |
if $_ |
|
239
|
0 |
0 |
if (@paths and not $paths[0] =~ m[^[\\/]{2}[^\\/]]) |
|
249
|
0 |
0 |
if $a ne '' |
|
254
|
0 |
0 |
if $arr[$end] ne '' |
|
257
|
0 |
0 |
if $start > $end |
|
274
|
0 |
0 |
$len < $len2 ? : |
|
279
|
0 |
0 |
if ($lowerFromParts[$i] ne $lowerToParts[$i]) |
|
284
|
0 |
0 |
if ($samePartsLength == 0) |
|
320
|
0 |
9 |
if (not $path or ref $path) |
|
326
|
0 |
9 |
if (not @allParts or scalar @allParts != 4) |
|
345
|
0 |
12 |
if (ref $pathObject ne 'HASH') |
|
350
|
0 |
12 |
if (not defined $root or ref $root) |
|
354
|
7 |
5 |
$$pathObject{'dir'} ? : |
|
365
|
22 |
2 |
$i >= 0 ? : |
|
367
|
0 |
24 |
unless ($path) |
|
377
|
41 |
20 |
if $_ |
|
392
|
230 |
107 |
if $_ |
|
394
|
20 |
8 |
unless ($path or $isAbsolute) |
|
397
|
8 |
89 |
if ($path and $trailingSlash) |
|
400
|
29 |
68 |
$isAbsolute ? : |
|
406
|
184 |
36 |
if $_ |
|
414
|
11 |
0 |
if $a ne '' |
|
419
|
11 |
0 |
if $arr[$end] ne '' |
|
422
|
1 |
11 |
if $start > $end |
|
435
|
2 |
4 |
$len < $len2 ? : |
|
440
|
2 |
5 |
if ($fromParts[$i] ne $toParts[$i]) |
|
469
|
92 |
0 |
if (@m) |
|
482
|
58 |
213 |
if ($last eq '.') { } |
|
|
58 |
155 |
elsif ($last eq '..') { } |
|
|
21 |
134 |
elsif ($up) { } |
|
494
|
68 |
47 |
if ($allowAboveRoot) |