| line |
true |
false |
branch |
|
58
|
3 |
259 |
if (scalar @args == 0 or not $args[0]) |
|
67
|
238 |
21 |
$self->_normalize ? : |
|
102
|
7 |
1 |
unless ($host =~ /^\d+\.\d+\.\d+\.\d+$/) |
|
117
|
1 |
7 |
$part_count > 4 ? : |
|
123
|
1 |
7 |
if ($path_query =~ /^([^\?]+)\?.*$/) |
|
179
|
29 |
230 |
unless (ref($uri_obj) =~ /^URI::https?$/) |
|
180
|
25 |
4 |
if (not $uri_obj->scheme or not $uri_obj->has_recognized_scheme and $modified_rawuri =~ m[^[^:]+:\d{1,5}(?:/|$)]) |
|
185
|
4 |
255 |
unless (ref($uri_obj) =~ /^URI::https?$/) |
|
199
|
2 |
253 |
if ($modified_host =~ /^\s*$/) |
|
209
|
11 |
242 |
unless (defined $modified_host) |
|
215
|
1 |
241 |
if ($uri_obj->host =~ m[^[\s./]*$]) |
|
220
|
3 |
238 |
if ($uri_obj->host =~ /\.\d[^\.]*$/ and not $uri_obj->host =~ /^(?:2(?:5[0-5]|[0-4][0-9])|[01]?[0-9]{1,2})(?:\.(?:2(?:5[0-5]|[0-4][0-9])|[01]?[0-9]{1,2})){3}$/) |
|
275
|
113 |
140 |
unless ($host =~ /^(?:0x[[:xdigit:]]+|\d+)(?:\.(?:0x[[:xdigit:]]+|\d+))*$/is) |
|
281
|
93 |
47 |
if ($ip) |
|
293
|
80 |
42 |
!$is_last_segment ? : |
|
294
|
11 |
111 |
unless (defined $segment) |
|
298
|
75 |
36 |
!$is_last_segment ? : |
|
340
|
34 |
88 |
if ($segment =~ /^0+([0-7]{0,10}|[0-3][0-7]{10})$/) { } |
|
|
35 |
53 |
elsif ($segment =~ /^0x0*([[:xdigit:]]{1,8})$/is) { } |
|
|
49 |
4 |
elsif ($segment =~ /^[1-9]\d+$/) { } |
|
353
|
7 |
111 |
if ($decimal >= 1 << $bits) |