| line |
true |
false |
branch |
|
23
|
2383 |
2387 |
if (defined $host_port) |
|
24
|
1908 |
475 |
if $host_port =~ s/:(\d+)$//u |
|
26
|
17 |
2366 |
$host =~ /[^\x00-\x7f]/u ? : |
|
29
|
1032 |
1355 |
unless defined(my $host = $self->ihost) |
|
30
|
332 |
1023 |
unless defined(my $port = $self->port) |
|
38
|
2 |
43 |
/^xn--(.+)$/u ? : |
|
|
18 |
4859 |
if @_ |
|
41
|
1032 |
3827 |
unless defined(my $host = $self->host) |
|
42
|
3795 |
32 |
unless $host =~ /[^\x00-\x7f]/u |
|
45
|
43 |
39 |
/[^\x00-\x7f]/u ? : |
|
50
|
1300 |
4891 |
@_ > 1 ? : |
|
57
|
1406 |
1306 |
if defined $2 |
|
58
|
2712 |
0 |
if defined $5 |
|
59
|
148 |
2564 |
if defined $7 |
|
60
|
38 |
2674 |
if defined $9 |
|
61
|
1403 |
1309 |
if (defined(my $auth = $4)) |
|
62
|
18 |
1385 |
if $auth =~ s/^([^\@]+)\@//u |
|
69
|
4 |
2 |
((shift())->userinfo // '') =~ /:(.*)$/u ? : |
|
76
|
6612 |
3814 |
unless @_ |
|
79
|
52 |
3762 |
ref $_[0] ? : |
|
87
|
1013 |
2414 |
if (defined $pq) |
|
88
|
0 |
1013 |
unless $pq =~ /^([^?#]*)(?:\?([^#]*))?/u |
|
89
|
127 |
886 |
defined $2 ? : |
|
93
|
224 |
2190 |
length $query ? : |
|
103
|
3931 |
308 |
unless @_ |
|
106
|
3 |
305 |
if (@_ > 1) { } |
|
|
11 |
294 |
elsif (ref $_[0] eq 'HASH') { } |
|
|
2 |
292 |
elsif (ref $_[0] eq 'ARRAY') { } |
|
115
|
15 |
277 |
ref $_[0] ? : |
|
124
|
64 |
261 |
if $abs->is_abs |
|
131
|
6 |
255 |
if $abs->host |
|
136
|
203 |
52 |
if $path->leading_slash |
|
139
|
10 |
42 |
if (not @{$path->parts;}) { } |
|
143
|
8 |
2 |
unless length $abs->query->to_string |
|
155
|
5 |
1 |
((shift())->userinfo // '') =~ /^([^:]+)/u ? : |
|
166
|
416 |
1026 |
if (my $proto = $self->protocol) |
|
170
|
410 |
1032 |
if defined $auth |
|
171
|
3 |
1439 |
if ($unsafe and defined(my $info = $self->userinfo)) |
|
174
|
410 |
1032 |
if defined $auth |
|
178
|
1439 |
3 |
!($auth && length $path) || $path =~ m[^[/?]]u ? : |
|
181
|
1380 |
62 |
unless defined(my $fragment = $self->fragment) |