| line |
true |
false |
branch |
|
52
|
0 |
10 |
unless $u->scheme |
|
53
|
0 |
10 |
if none sub {
$_ eq $u->scheme;
}
, 'http', 'https' |
|
54
|
0 |
10 |
unless $u->can('host') and $u->host |
|
57
|
0 |
10 |
if length $path == 0 |
|
69
|
0 |
0 |
$packed =~ /[A-Za-z0-9._~-]/ ? : |
|
76
|
0 |
10 |
if ($path =~ m[^\.\./]) { } |
|
|
0 |
10 |
elsif ($path =~ m[^\./]) { } |
|
|
0 |
10 |
elsif ($path =~ m[^/\./]) { } |
|
|
0 |
10 |
elsif ($path eq '/.') { } |
|
|
0 |
10 |
elsif ($path =~ m[^/\.\./]) { } |
|
|
0 |
10 |
elsif ($path eq '/..') { } |
|
|
0 |
10 |
elsif ($path eq '..' or $path eq '.') { } |
|
86
|
0 |
0 |
if @result_segments > 0 |
|
89
|
0 |
0 |
if @result_segments > 0 |
|
94
|
10 |
0 |
if substr($path, 0, 1) eq '/' |
|
96
|
10 |
0 |
unless $i >= 0 |