| line |
true |
false |
branch |
|
23
|
2560 |
2638 |
if (defined $host_port) |
|
24
|
2061 |
499 |
if $host_port =~ s/:(\d+)$//u |
|
26
|
17 |
2543 |
$host =~ /[^\x00-\x7f]/u ? : |
|
29
|
1248 |
1390 |
unless defined(my $host = $self->ihost) |
|
30
|
288 |
1102 |
unless defined(my $port = $self->port) |
|
38
|
2 |
43 |
if (/^xn--(.+)$/u) { } |
|
|
18 |
5243 |
if @_ |
|
41
|
1248 |
3995 |
unless defined(my $host = $self->host) |
|
42
|
3963 |
32 |
unless $host =~ /[^\x00-\x7f]/u |
|
45
|
43 |
39 |
if (/[^\x00-\x7f]/u) { } |
|
50
|
1386 |
5411 |
@_ > 1 ? : |
|
57
|
1501 |
1492 |
if defined $2 |
|
58
|
2993 |
0 |
if defined $5 |
|
59
|
146 |
2847 |
if defined $7 |
|
60
|
38 |
2955 |
if defined $9 |
|
61
|
1498 |
1495 |
if (defined(my $auth = $4)) |
|
62
|
18 |
1480 |
if $auth =~ s/^([^\@]+)\@//u |
|
69
|
4 |
2 |
((shift())->userinfo // '') =~ /:(.*)$/u ? : |
|
76
|
7251 |
4178 |
unless @_ |
|
79
|
53 |
4125 |
ref $_[0] ? : |
|
87
|
1095 |
2673 |
if (defined $pq) |
|
88
|
0 |
1095 |
unless $pq =~ /^([^?#]*)(?:\?([^#]*))?/u |
|
89
|
125 |
970 |
defined $2 ? : |
|
93
|
223 |
2450 |
length $query ? : |
|
103
|
4305 |
304 |
unless @_ |
|
106
|
3 |
301 |
if (@_ > 1) { } |
|
|
11 |
290 |
elsif (ref $_[0] eq 'HASH') { } |
|
|
2 |
288 |
elsif (ref $_[0] eq 'ARRAY') { } |
|
115
|
15 |
273 |
ref $_[0] ? : |
|
124
|
72 |
266 |
if $abs->is_abs |
|
131
|
6 |
260 |
if $abs->host |
|
136
|
207 |
53 |
if $path->leading_slash |
|
139
|
10 |
43 |
if (not @{$path->parts;}) { } |
|
143
|
8 |
2 |
unless length $abs->query->to_string |
|
155
|
5 |
1 |
((shift())->userinfo // '') =~ /^([^:]+)/u ? : |
|
166
|
378 |
1241 |
if (my $proto = $self->protocol) |
|
170
|
372 |
1247 |
if defined $auth |
|
171
|
3 |
1616 |
if ($unsafe and defined(my $info = $self->userinfo)) |
|
174
|
372 |
1247 |
if defined $auth |
|
178
|
1616 |
3 |
!($auth && length $path) || $path =~ m[^[/?]]u ? : |
|
181
|
1557 |
62 |
unless defined(my $fragment = $self->fragment) |