| 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 "*"
|
|
692
|
0 |
11 |
unless defined $country
|
|
693
|
11 |
0 |
unless defined $charset
|
|
697
|
0 |
11 |
if (my $retval = $locale_cache->{$language}{$country}{$charset})
|
|
707
|
0 |
11 |
!($^O =~ /darwin/i) && $^O =~ /win/i ? :
|
|
708
|
0 |
11 |
if ($windows)
|
|
722
|
11 |
22 |
if $seen{$language}++
|
|
725
|
0 |
22 |
if ($result)
|
|
726
|
0 |
0 |
if $result
|
|
732
|
11 |
0 |
length $country ? :
|
|
744
|
0 |
198 |
unless defined $c and length $c
|
|
746
|
132 |
66 |
if $seen{$try}++
|
|
749
|
0 |
66 |
if ($result)
|
|
751
|
0 |
0 |
if ($count >= @countries) { }
|
|
762
|
11 |
0 |
unless (length $charset)
|
|
763
|
11 |
0 |
unless defined $set_locale and length $set_locale
|
|
767
|
0 |
0 |
wantarray ? :
|
|
772
|
0 |
0 |
if $cleaned =~ s/-//g
|
|
786
|
0 |
0 |
unless defined $c and length $c
|
|
788
|
0 |
0 |
length $c ? :
|
|
792
|
0 |
0 |
if $seen{$try}++
|
|
796
|
0 |
0 |
if ($result)
|
|
798
|
0 |
0 |
if ($count >= @countries) { }
|
|
810
|
0 |
0 |
unless defined $set_locale and length $set_locale
|
|
815
|
0 |
0 |
wantarray ? :
|
|
826
|
0 |
0 |
unless defined $country
|
|
827
|
0 |
0 |
unless defined $charset
|
|
834
|
0 |
0 |
if $seen{$language}++
|
|
837
|
0 |
0 |
if ($result)
|
|
838
|
0 |
0 |
if $result
|
|
845
|
0 |
0 |
if (length $country)
|
|
854
|
0 |
0 |
unless defined $c and length $c
|
|
856
|
0 |
0 |
if $seen{$try}++
|
|
859
|
0 |
0 |
if ($result)
|
|
868
|
0 |
0 |
unless defined $set_locale and length $set_locale
|
|
875
|
0 |
0 |
wantarray ? :
|
|
883
|
0 |
0 |
if (ref $_[0] and 'HASH' eq ref $_[0]) { }
|
|
895
|
0 |
0 |
if ($available)
|
|
904
|
0 |
0 |
if (ref $accept_language and 'ARRAY' eq ref $accept_language) { }
|
|
910
|
0 |
0 |
if ($available)
|
|
916
|
0 |
0 |
if $available{$language}
|
|
921
|
0 |
0 |
if (defined $accept_charset)
|
|
922
|
0 |
0 |
if (ref $accept_charset and 'ARRAY' eq ref $accept_charset) { }
|
|
929
|
0 |
0 |
unless (defined $category)
|
|
941
|
0 |
0 |
if (defined $locale)
|
|
944
|
0 |
0 |
if (defined $country)
|
|
945
|
0 |
0 |
if (not defined $country or $country ne $country_used)
|
|
954
|
0 |
0 |
if (wantarray) { }
|
|
962
|
0 |
0 |
if (defined $set_locale)
|
|
963
|
0 |
0 |
if (wantarray) { }
|