| blib/lib/HTTP/AcceptLanguage.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 9 | 12 | 75.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 35 | 9 | 5 | 153 | $language and $quality > 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 44 | 142 | 4 | 7 | not exists $high_qualities{$language} or $quality > $high_qualities{$language} |
| 60 | 0 | 19 | 0 | $$self{'languages'} ||= do { BEGIN { $^H{'sort'} = '256'; } my(@languages) = map({$$_{'language'};} (sort {$$b{'quality'} <=> $$a{'quality'};} @{$$self{'parsed_header'};})); \@languages } |
| 83 | 2 | 66 | 0 | $$self{'sorted_parsed_header'} ||= do { BEGIN { $^H{'sort'} = '256'; } [(sort {$$b{'quality'} <=> $$a{'quality'};} @{$$self{'parsed_header'};})] } |