| line |
true |
false |
branch |
|
40
|
0 |
8 |
if $URI::URL::STRICT |
|
48
|
2 |
0 |
if @_ |
|
86
|
0 |
8 |
unless length $path |
|
106
|
8 |
3 |
unless ref $p[-1] |
|
117
|
5 |
23 |
unless defined wantarray |
|
118
|
0 |
23 |
unless defined $old and length $old |
|
119
|
1 |
22 |
if $old =~ /%2[fF]/ and not @_ |
|
121
|
1 |
21 |
if not $old =~ m[^/] and defined $self->netloc |
|
132
|
7 |
11 |
if (defined wantarray and defined $old) |
|
133
|
1 |
6 |
if ($old =~ /%(?:26|2[bB]|3[dD])/) |
|
136
|
0 |
1 |
if /\+/ and /%2[bB]/ |
|
138
|
1 |
0 |
if /=/ and /%(?:3[dD]|26)/ |
|
141
|
1 |
0 |
if ($mess) |
|
158
|
60 |
20 |
unless defined $allow_scheme |