| line |
true |
false |
branch |
|
15
|
0 |
9 |
if $abs_path =~ m[^/$] |
|
17
|
3 |
6 |
unless ($abs_path =~ m[^/]) |
|
25
|
0 |
60 |
if ($elems[$ptr] eq '') { } |
|
|
3 |
57 |
elsif ($elems[$ptr] eq '.') { } |
|
|
2 |
55 |
elsif ($elems[$ptr] eq '..') { } |
|
34
|
0 |
2 |
if ($ptr < 2) { } |
|
47
|
9 |
0 |
$#elems ? : |
|
53
|
0 |
13 |
unless defined $child |
|
54
|
0 |
13 |
unless defined $parent |
|
56
|
0 |
13 |
if ($child eq $parent) |
|
57
|
0 |
0 |
if $Cwd::Ext::DEBUG |
|
62
|
4 |
9 |
unless ($child =~ m[^$parent/]) |
|
63
|
0 |
4 |
if $Cwd::Ext::DEBUG |
|
72
|
0 |
10 |
unless defined $child |
|
73
|
0 |
10 |
unless defined $parent |
|
76
|
0 |
10 |
unless my $_child = Cwd::abs_path($child) |
|
77
|
0 |
10 |
unless my $_parent = Cwd::abs_path($parent) |
|
85
|
0 |
2 |
unless defined $child |
|
86
|
0 |
2 |
unless defined $parent |
|
88
|
0 |
2 |
unless my $_child = abs_path_nd($child) |
|
89
|
0 |
2 |
unless my $_parent = abs_path_nd($parent) |