Lines Matching refs:codeset
42 my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
53 if ($codeset == LOCALE_CODE_NUMERIC)
63 if (exists $CODES->[$codeset]->{$code})
65 return $CODES->[$codeset]->{$code};
85 my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
90 if (exists $COUNTRIES->[$codeset]->{$country})
92 return $COUNTRIES->[$codeset]->{$country};
135 my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
137 return keys %{ $CODES->[$codeset] };
148 my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
150 return values %{ $CODES->[$codeset] };
159 # then we use the default (currently the alpha-2 codeset).
168 my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
173 if (not exists $CODES->[$codeset]->{$real})
178 $country = $CODES->[$codeset]->{$real};
179 $CODES->[$codeset]->{$alias} = $country;
180 $COUNTRIES->[$codeset]->{"\L$country"} = $alias;
204 my $codeset = @_ > 0 ? shift : _code2codeset($code);
209 if (not defined $codeset)
215 $country = $CODES->[$codeset]->{$code};
221 if ($cset == $codeset)
227 $c = country_code2code($code, $codeset, $cset);
242 # given a country code in an unknown codeset, return the codeset
251 foreach my $codeset (LOCALE_CODE_ALPHA_2, LOCALE_CODE_ALPHA_3,
254 return $codeset if (exists $CODES->[$codeset]->{$code})