| line |
true |
false |
branch |
|
58
|
0 |
12 |
unless $u->scheme
|
|
59
|
0 |
12 |
if none sub {
$_ eq $u->scheme;
}
, 'http', 'https'
|
|
60
|
0 |
12 |
unless $u->can('host') and $u->host
|
|
63
|
5 |
7 |
if length $path == 0
|
|
75
|
0 |
0 |
$packed =~ /[A-Za-z0-9._~-]/ ? :
|
|
82
|
0 |
8 |
if ($path =~ m[^\.\./]) { }
|
|
|
0 |
8 |
elsif ($path =~ m[^\./]) { }
|
|
|
0 |
8 |
elsif ($path =~ m[^/\./]) { }
|
|
|
0 |
8 |
elsif ($path eq '/.') { }
|
|
|
0 |
8 |
elsif ($path =~ m[^/\.\./]) { }
|
|
|
0 |
8 |
elsif ($path eq '/..') { }
|
|
|
0 |
8 |
elsif ($path eq '..' or $path eq '.') { }
|
|
92
|
0 |
0 |
if @result_segments > 0
|
|
95
|
0 |
0 |
if @result_segments > 0
|
|
100
|
8 |
0 |
if substr($path, 0, 1) eq '/'
|
|
102
|
7 |
1 |
unless $i >= 0
|