| line |
true |
false |
branch |
|
287
|
1 |
5 |
defined $arg{'strict'} ? :
|
|
300
|
6 |
175 |
if @_
|
|
312
|
6 |
11 |
if @_
|
|
324
|
6 |
21 |
if @_
|
|
338
|
4 |
25 |
if (not $clientPreferences or ref $supportedLanguages ne 'ARRAY')
|
|
344
|
0 |
25 |
if $acceptor->debug
|
|
350
|
12 |
28 |
if $quality
|
|
351
|
28 |
12 |
unless $quality
|
|
352
|
0 |
40 |
if $quality <= 0
|
|
354
|
5 |
35 |
if $language eq '*'
|
|
365
|
0 |
38 |
if $acceptor->debug
|
|
368
|
38 |
0 |
if ($language =~ /^([^-]+)-?/)
|
|
369
|
0 |
38 |
if $acceptor->debug
|
|
380
|
0 |
34 |
if $acceptor->debug
|
|
381
|
9 |
25 |
if (exists $supportedLanguages{$$tag{'lclanguage'}}) { }
|
|
|
4 |
21 |
elsif (exists $secondaryLanguages{$$tag{'lclanguage'}}) { }
|
|
|
1 |
20 |
elsif (not $acceptor->strict and $$tag{'lclanguage'} =~ /^([^-]+)-/ and exists $secondaryLanguages{$1} and $secondaryMatch eq '') { }
|
|
|
10 |
10 |
elsif ($$tag{'lclanguage'} =~ /^([^-]+)-/ and exists $secondaryLanguages{$1} and $secondaryMatch eq '') { }
|
|
|
3 |
7 |
elsif ($$tag{'lclanguage'} eq '*') { }
|
|
383
|
0 |
9 |
if $acceptor->debug
|
|
385
|
8 |
1 |
if exists $supportedLanguages{$$tag{'language'}}
|
|
390
|
0 |
4 |
if $acceptor->debug
|
|
392
|
4 |
0 |
if exists $secondaryLanguages{$$tag{'language'}}
|
|
400
|
0 |
1 |
if $acceptor->debug
|
|
407
|
0 |
10 |
if $acceptor->debug
|
|
414
|
0 |
3 |
if $acceptor->debug
|
|
415
|
0 |
3 |
if $acceptor->defaultLanguage
|
|
421
|
0 |
9 |
if $acceptor->debug
|
|
422
|
5 |
4 |
if $secondaryMatch
|
|
425
|
0 |
4 |
if $acceptor->debug
|