| line |
true |
false |
branch |
|
640
|
7 |
4 |
if ($token =~ s/ *; *q *= *([0-9]+(?:\.([0-9]+))?)$//) |
|
651
|
1 |
10 |
if $_ eq '*' |
|
668
|
2 |
1 |
if ($token =~ s/ *; *q *= *([0-9]+(?:\.([0-9]+))?)$//) |
|
678
|
0 |
3 |
if $_ eq '*' |
|
689
|
0 |
11 |
unless defined $country |
|
690
|
11 |
0 |
unless defined $charset |
|
694
|
0 |
11 |
if (my $retval = $locale_cache->{$language}{$country}{$charset}) |
|
704
|
0 |
11 |
!($^O =~ /darwin/i) && $^O =~ /win/i ? : |
|
705
|
0 |
11 |
if ($windows) |
|
719
|
11 |
22 |
if $seen{$language}++ |
|
722
|
0 |
22 |
if ($result) |
|
723
|
0 |
0 |
if $result |
|
729
|
11 |
0 |
length $country ? : |
|
741
|
0 |
198 |
unless defined $c and length $c |
|
743
|
132 |
66 |
if $seen{$try}++ |
|
746
|
0 |
66 |
if ($result) |
|
748
|
0 |
0 |
if ($count >= @countries) { } |
|
759
|
11 |
0 |
unless (length $charset) |
|
760
|
11 |
0 |
unless defined $set_locale and length $set_locale |
|
764
|
0 |
0 |
wantarray ? : |
|
769
|
0 |
0 |
if $cleaned =~ s/-//g |
|
783
|
0 |
0 |
unless defined $c and length $c |
|
785
|
0 |
0 |
length $c ? : |
|
789
|
0 |
0 |
if $seen{$try}++ |
|
793
|
0 |
0 |
if ($result) |
|
795
|
0 |
0 |
if ($count >= @countries) { } |
|
807
|
0 |
0 |
unless defined $set_locale and length $set_locale |
|
812
|
0 |
0 |
wantarray ? : |
|
820
|
0 |
0 |
unless defined $country |
|
821
|
0 |
0 |
unless defined $charset |
|
828
|
0 |
0 |
if $seen{$language}++ |
|
831
|
0 |
0 |
if ($result) |
|
832
|
0 |
0 |
if $result |
|
839
|
0 |
0 |
if (length $country) |
|
848
|
0 |
0 |
unless defined $c and length $c |
|
850
|
0 |
0 |
if $seen{$try}++ |
|
853
|
0 |
0 |
if ($result) |
|
862
|
0 |
0 |
unless defined $set_locale and length $set_locale |
|
869
|
0 |
0 |
wantarray ? : |
|
877
|
0 |
0 |
if (ref $_[0] and 'HASH' eq ref $_[0]) { } |
|
889
|
0 |
0 |
if ($available) |
|
898
|
0 |
0 |
if (ref $accept_language and 'ARRAY' eq ref $accept_language) { } |
|
904
|
0 |
0 |
if ($available) |
|
910
|
0 |
0 |
if $available{$language} |
|
915
|
0 |
0 |
if (defined $accept_charset) |
|
916
|
0 |
0 |
if (ref $accept_charset and 'ARRAY' eq ref $accept_charset) { } |
|
923
|
0 |
0 |
unless (defined $category) |
|
935
|
0 |
0 |
if (defined $locale) |
|
938
|
0 |
0 |
if (defined $country) |
|
939
|
0 |
0 |
if (not defined $country or $country ne $country_used) |
|
948
|
0 |
0 |
if (wantarray) { } |
|
956
|
0 |
0 |
if (defined $set_locale) |
|
957
|
0 |
0 |
if (wantarray) { } |