lib/Path/Resolve.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 24 | 99 | 24.2 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
48 | 21 | 0 | 0 | $ext and substr($f, -1 * length($ext)) eq $ext |
132 | 0 | 0 | 0 | $device && !($device =~ /^.:/) |
168 | 0 | 0 | 0 | $device && !($device =~ /^.:/) |
171 | 0 | 0 | 0 | $device and $resolvedDevice |
0 | 0 | 0 | $device and $resolvedDevice and lc $device ne lc $resolvedDevice | |
185 | 0 | 0 | 0 | $resolvedDevice and $resolvedAbsolute |
208 | 0 | 0 | 0 | @device && $device[1] ne ':' |
213 | 0 | 0 | 0 | @device and $device[1] eq ':' |
223 | 0 | 0 | 0 | $tail and $trailingSlash |
239 | 0 | 0 | 0 | @paths and not $paths[0] =~ m[^[\\/]{2}[^\\/]] |
364 | 2 | 16 | 24 | $i >= -1 and not $resolvedAbsolute |
397 | 8 | 81 | 8 | $path and $trailingSlash |
line | l | !l | condition |
---|---|---|---|
72 | 0 | 0 | $result[1] || '' |
0 | 0 | $result[2] || '' | |
73 | 0 | 0 | $result[3] || '' |
109 | 0 | 0 | $$pathObject{'root'} || '' |
115 | 0 | 0 | $$pathObject{'base'} || '' |
131 | 0 | 0 | $result[1] || '' |
167 | 0 | 0 | $result[1] || '' |
199 | 0 | 0 | $resolvedDevice . ($resolvedAbsolute ? '\\' : '') . $resolvedTail || '.' |
206 | 0 | 0 | $result[1] || '' |
330 | 6 | 3 | $allParts[1] ||= '' |
331 | 9 | 0 | $allParts[2] ||= '' |
332 | 5 | 4 | $allParts[3] ||= '' |
349 | 4 | 8 | $$pathObject{'root'} || '' |
355 | 10 | 2 | $$pathObject{'base'} || '' |
379 | 18 | 0 | ($resolvedAbsolute ? '/' : '') . $resolvedPath || '.' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
28 | 9 | 0 | 3 | $root or $dir |
84 | 0 | 0 | 0 | not $path or ref $path |
90 | 0 | 0 | 0 | not @allParts or scalar @allParts != 4 |
110 | 0 | 0 | 0 | not defined $root or ref $root |
134 | 0 | 0 | 0 | !!$result[2] || $isUnc |
209 | 0 | 0 | 0 | !!$result[2] || $isUnc |
220 | 0 | 0 | 0 | $tail or $isAbsolute |
320 | 0 | 0 | 9 | not $path or ref $path |
326 | 0 | 0 | 9 | not @allParts or scalar @allParts != 4 |
350 | 0 | 0 | 12 | not defined $root or ref $root |
394 | 69 | 0 | 28 | $path or $isAbsolute |