| line |
true |
false |
branch |
|
35
|
0 |
15 |
if $$self{'_ep_language'} |
|
41
|
11 |
4 |
if ($$attr{'accept-language'}) |
|
44
|
4 |
11 |
unless @offered |
|
50
|
0 |
15 |
if (my $lang = $$self{'cgi'}->param('language')) |
|
52
|
0 |
0 |
if $l eq $lang |
|
57
|
0 |
15 |
if (exists $ENV{'HTTP_ACCEPT_LANGUAGE'}) |
|
61
|
0 |
0 |
if $l eq $lang |
|
74
|
2 |
1 |
exists $$attr{$language} ? : |
|
|
3 |
9 |
unless exists $$attr{'language'} |
|
80
|
3 |
6 |
if $state |
|
83
|
3 |
21 |
if ($$token{'type'} eq 'S') { } |
|
|
9 |
12 |
elsif ($$token{'type'} eq 'E') { } |
|
84
|
3 |
0 |
if ($$token{'tag'} eq 'ep-language') |
|
85
|
1 |
2 |
if ($state) { } |
|
|
2 |
0 |
elsif (not $state_done) { } |
|
90
|
1 |
1 |
if ($state = $$at{'language'} eq $language) |
|
97
|
9 |
0 |
if ($$token{'tag'} eq 'ep-language') |
|
98
|
5 |
4 |
unless $state_done |
|
99
|
3 |
1 |
if $state |
|
128
|
1 |
1 |
if ($$self{'_ep_language'} eq 'de') |
|
130
|
1 |
0 |
if ($date =~ /(\S+),\s+
(\d+)\s+
(\S+)\s+
(\d+)\s+
(\d+\:\d+\:\d+)\s+
(\+\d+)/x) |