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'};})] } |