| line |
true |
false |
branch |
|
23
|
2544 |
2630 |
if (defined $host_port) |
|
24
|
2053 |
491 |
if $host_port =~ s/:(\d+)$//u |
|
26
|
17 |
2527 |
$host =~ /[^\x00-\x7f]/u ? : |
|
29
|
1248 |
1382 |
unless defined(my $host = $self->ihost) |
|
30
|
284 |
1098 |
unless defined(my $port = $self->port) |
|
38
|
2 |
43 |
if (/^xn--(.+)$/u) { } |
|
|
18 |
5227 |
if @_ |
|
41
|
1248 |
3979 |
unless defined(my $host = $self->host) |
|
42
|
3947 |
32 |
unless $host =~ /[^\x00-\x7f]/u |
|
45
|
43 |
39 |
if (/[^\x00-\x7f]/u) { } |
|
50
|
1378 |
5388 |
@_ > 1 ? : |
|
57
|
1489 |
1488 |
if defined $2 |
|
58
|
2977 |
0 |
if defined $5 |
|
59
|
146 |
2831 |
if defined $7 |
|
60
|
38 |
2939 |
if defined $9 |
|
61
|
1486 |
1491 |
if (defined(my $auth = $4)) |
|
62
|
18 |
1468 |
if $auth =~ s/^([^\@]+)\@//u |
|
69
|
4 |
2 |
((shift())->userinfo // '') =~ /:(.*)$/u ? : |
|
76
|
7236 |
4158 |
unless @_ |
|
79
|
53 |
4105 |
ref $_[0] ? : |
|
87
|
1091 |
2665 |
if (defined $pq) |
|
88
|
0 |
1091 |
unless $pq =~ /^([^?#]*)(?:\?([^#]*))?/u |
|
89
|
125 |
966 |
defined $2 ? : |
|
93
|
223 |
2442 |
length $query ? : |
|
103
|
4293 |
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
|
68 |
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
|
374 |
1241 |
if (my $proto = $self->protocol) |
|
170
|
368 |
1247 |
if defined $auth |
|
171
|
3 |
1612 |
if ($unsafe and defined(my $info = $self->userinfo)) |
|
174
|
368 |
1247 |
if defined $auth |
|
178
|
1612 |
3 |
!($auth && length $path) || $path =~ m[^[/?]]u ? : |
|
181
|
1553 |
62 |
unless defined(my $fragment = $self->fragment) |