| line |
true |
false |
branch |
|
100
|
9 |
7 |
if defined $_ |
|
104
|
0 |
7 |
if defined $_ |
|
109
|
3 |
4 |
if (my $httplang = $ENV{'HTTP_ACCEPT_LANGUAGE'}) |
|
112
|
3 |
0 |
if ($httplang =~ /^\s*([a-zA-Z]+)[_-]([a-zA-Z]{2})\s*$/) |
|
119
|
0 |
9 |
unless defined $_ |
|
120
|
5 |
4 |
if /^[a-zA-Z]+_([a-zA-Z]{2})(?:[.\@]|$)/ |
|
126
|
1 |
1 |
if $fqdn =~ /\.([a-zA-Z]{2})$/ |
|
127
|
1 |
1 |
if defined $_ |
|
149
|
0 |
28 |
if $DEBUG |
|
150
|
0 |
28 |
unless defined $_ |
|
155
|
0 |
28 |
if (/^(www|web|home)[a-z0-9-]*(?:\.|$)/i) { } |
|
|
6 |
22 |
elsif (/^(ftp|gopher|news|wais|https|http)[a-z0-9-]*(?:\.|$)/i) { } |
|
|
2 |
20 |
elsif (m[^//] or /^[\\][\\]/) { } |
|
|
3 |
17 |
elsif ($^O ne 'MacOS' and m[^/] || m[^\.\.?/] || m(^[a-zA-Z]:[/\\])) { } |
|
|
0 |
17 |
elsif ($^O eq 'MacOS' and /:/) { } |
|
|
2 |
15 |
elsif (/^\w+([\.\-]\w+)*\@(\w+\.)+\w{2,3}$/) { } |
|
|
12 |
3 |
elsif (not /^[a-zA-Z][a-zA-Z0-9.+\-]*:/) { } |
|
176
|
0 |
0 |
unless (/^(ftp|gopher|news|wais|http|https|mailto):/) |
|
179
|
0 |
0 |
$a =~ /^file:/ ? : |
|
185
|
12 |
0 |
if (s[^([-\w]+(?:\.[-\w]+)*)([/:\?\#]|$)][$2]) { } |
|
189
|
3 |
9 |
if (/^:(\d+)\b/) |
|
191
|
1 |
2 |
if ($1 =~ /^[56789]?443$/) { } |
|
|
1 |
1 |
elsif ($1 eq '21') { } |
|
198
|
9 |
3 |
if (not $host =~ /\./ and $host ne "localhost") |
|
200
|
2 |
7 |
if (exists $ENV{'URL_GUESS_PATTERN'}) { } |
|
204
|
6 |
1 |
if (&MY_COUNTRY()) |
|
206
|
3 |
3 |
if ($special) { } |
|
221
|
0 |
9 |
if $DEBUG |
|
223
|
8 |
1 |
if (gethostbyname("$guess.")) |
|
224
|
0 |
8 |
if $DEBUG |
|
228
|
0 |
1 |
if $DEBUG |
|
238
|
0 |
28 |
if $DEBUG |