| line |
true |
false |
branch |
|
28
|
3 |
5 |
unless defined $path and length $path |
|
29
|
0 |
5 |
unless defined $base and length $base |
|
30
|
1 |
4 |
unless is_abs_path($base) |
|
36
|
3 |
26 |
unless defined $path and length $path |
|
37
|
20 |
6 |
$path =~ m[\A/] ? : |
|
42
|
3 |
2 |
unless defined $path and length $path |
|
43
|
1 |
1 |
$path =~ m[\A/] ? : |
|
47
|
6 |
21 |
unless @_ > 1 |
|
51
|
0 |
44 |
unless defined $_ and length $_ |
|
52
|
21 |
23 |
unless $i++ |
|
53
|
6 |
17 |
if (m[\A/]) { } |
|
56
|
5 |
12 |
$res =~ m[/\z] ? : |
|
74
|
8 |
4 |
if $elem eq '.' and @elems || @elems0 || $is_abs |
|
75
|
6 |
7 |
if ($elem eq '..' and @elems > 1 && $elems[-1] ne '..' || @elems == 1 && $elems[-1] ne '..' && $elems[-1] ne '.' && @elems0 || $is_abs) |
|
81
|
13 |
38 |
if $_split |
|
82
|
13 |
25 |
$is_abs ? : |
|
98
|
3 |
10 |
unless defined $path and length $path |
|
99
|
2 |
8 |
unless defined $base and length $base |
|
100
|
1 |
7 |
unless is_abs_path($path) |
|
101
|
1 |
6 |
unless is_abs_path($base) |
|
107
|
1 |
8 |
unless @elems_path > $num_common_elems |
|
109
|
2 |
6 |
unless $elems_path[$num_common_elems] eq $elems_base[$num_common_elems] |
|
115
|
1 |
5 |
unless @elems |
|
121
|
9 |
61 |
unless defined $path and length $path |