line |
true |
false |
branch |
57
|
0 |
1 |
unless $no_warn |
|
1 |
16 |
if ($url =~ /$control/) |
61
|
0 |
2 |
unless $no_warn |
|
2 |
14 |
if (($ex) = $url =~ /($exclude)/) |
79
|
13 |
1 |
if (defined $scheme) |
81
|
0 |
3 |
unless $no_warn |
|
3 |
10 |
unless ($scheme =~ /$scheme_re/) |
104
|
1 |
1 |
unless (defined $ret) |
106
|
0 |
1 |
unless $no_warn |
109
|
0 |
1 |
unless verify_url $ret |
130
|
2 |
0 |
unless defined $fragment |
134
|
0 |
0 |
unless $no_warn |
|
0 |
0 |
if ($fragment =~ /$control/) |
138
|
0 |
0 |
unless $no_warn |
|
0 |
0 |
if (($ex) = $fragment =~ /($exclude)/) |
147
|
0 |
2 |
if ($main::verbose & 16) |
148
|
0 |
0 |
if defined $fragment |
150
|
0 |
0 |
unless defined $fragment |
158
|
0 |
2 |
unless defined $link |
162
|
0 |
2 |
unless (verify_url $url) |
163
|
0 |
0 |
unless $no_warn |
167
|
2 |
0 |
unless (verify_fragment $fragment) |
168
|
0 |
2 |
if defined $fragment |
173
|
0 |
2 |
if ($url =~ m[^(?:ftp|gopher|http|https|ldap|rsync|telnet):(?:[^/]|.[^/])]) |
181
|
1 |
1 |
if (URI::eq($urlo, $aurlo)) { } |
188
|
0 |
2 |
if ($ret_url =~ m[^(?:ftp|gopher|http|https|ldap|rsync|telnet):(?:[^/]|.[^/])]) |
193
|
0 |
2 |
if $main::verbose & 16 and defined $url |