| line |
true |
false |
branch |
|
14
|
505 |
359 |
if ($str =~ m[^((?:$URI::scheme_re:)?)//([^/?\#]*)(.*)$]so) |
|
16
|
26 |
479 |
$host =~ s/(.*@)// ? : |
|
17
|
21 |
484 |
$host =~ s/(:\d+)\z// ? : |
|
18
|
5 |
500 |
if (_host_escape($host)) |
|
27
|
537 |
6 |
unless $_[0] =~ /[^$URI::uric4host]/ |
|
32
|
1 |
5 |
if $@ |
|
39
|
5 |
10 |
if ($str =~ /\bxn--/) |
|
40
|
5 |
0 |
if ($str =~ m[^((?:$URI::scheme_re:)?)//([^/?\#]*)(.*)$]so) |
|
42
|
0 |
5 |
$host =~ s/(.*@)// ? : |
|
43
|
0 |
5 |
$host =~ s/(:\d+)\z// ? : |
|
57
|
39 |
97 |
if (@_) |
|
59
|
0 |
39 |
unless defined $new |
|
62
|
35 |
4 |
if (defined $ui) |
|
68
|
29 |
107 |
unless defined $old and $old =~ /(.*)@/ |
|
76
|
39 |
452 |
if (@_) |
|
78
|
4 |
35 |
unless defined $tmp |
|
79
|
17 |
22 |
$tmp =~ /(.*@)/ ? : |
|
80
|
15 |
24 |
$tmp =~ /(:\d+)$/ ? : |
|
82
|
1 |
38 |
unless defined $new |
|
83
|
38 |
1 |
if (length $new) |
|
85
|
5 |
33 |
if ($new =~ /^[^:]*:\d*\z/ or $new =~ /]:\d*\z/) |
|
86
|
0 |
5 |
unless $new =~ s/(:\d*)\z// |
|
89
|
11 |
27 |
if $new =~ /:/ and not $new =~ /^\[/ |
|
94
|
79 |
412 |
unless defined $old |
|
105
|
3 |
2 |
if ($old =~ /(^|\.)xn--/) |
|
116
|
45 |
464 |
if (@_) |
|
120
|
27 |
18 |
if defined $port |
|
123
|
74 |
435 |
if defined $old and $old =~ /:(\d*)$/ |
|
131
|
74 |
43 |
if not defined $port or $port eq "" |
|
139
|
3 |
7 |
if @_ |
|
140
|
0 |
10 |
unless defined $old |
|
143
|
6 |
4 |
unless $old =~ /:\d+$/ |
|
159
|
19 |
372 |
if ($uc_host or $def_port) |
|
160
|
7 |
12 |
if $other == $self |
|
161
|
15 |
4 |
if $uc_host |
|
162
|
9 |
10 |
if $def_port |