| line |
true |
false |
branch |
|
140
|
36 |
24 |
if (@avail) { } |
|
143
|
13 |
104 |
if ($ua_lang =~ /^\Q$avail_lang\E(_[A-Z]+)?$/) |
|
165
|
0 |
60 |
unless $obj |
|
167
|
60 |
0 |
if ($obj->can('accept_language')) |
|
171
|
0 |
60 |
if (not $accept_str and $obj->can('header')) |
|
174
|
0 |
60 |
unless $accept_str |
|
180
|
45 |
190 |
unless $lang_str |
|
182
|
180 |
10 |
if ($lang_str =~ /([a-zA-Z]+([-_][a-zA-Z]+)?)\s*(;\s*q\s*=\s*([0-9\.]+))?/) |
|
186
|
25 |
165 |
unless $code |
|
190
|
10 |
50 |
unless @to_order |
|
222
|
0 |
188 |
unless $code |
|
223
|
183 |
5 |
if ($code =~ /([a-zA-Z]{2})([_-]([a-zA-Z]*))?/) { } |
|
235
|
17 |
171 |
unless $langs{$lang} |
|
238
|
46 |
125 |
if ($countrs{$country}) |
|
242
|
45 |
80 |
if ($lang eq 'en') |
|
246
|
50 |
30 |
if ($countrs{$lang}) |