8 FS::Locales - Supported locales
14 my @locales = FS::Locales->locales;
18 FS::Locales provides a list of supported locales.
26 Returns a list of the available locales.
30 tie our %locales, 'Tie::IxHash',
31 'en_US', { name => 'English', country => 'United States', },
32 'en_AU', { name => 'English', country => 'Australia', },
33 'en_CA', { name => 'English', country => 'Canada', },
34 'es_ES', { name => 'Spanish', country => 'Spain', },
35 'es_AR', { name => 'Spanish', country => 'Argentina', },
36 'es_CU', { name => 'Spanish', country => 'Cuba', },
37 'es_MX', { name => 'Spanish', country => 'Mexico', },
38 'es_PA', { name => 'Spanish', country => 'Panama', },
39 'es_US', { name => 'Spanish', country => 'United States', },
40 'fr_CA', { name => 'French', country => 'Canada', },
41 'fr_FR', { name => 'French', country => 'France', },
42 'fr_HT', { name => 'French', country => 'Haiti', },
43 'ht_HT', { name => 'Haitian Creole', country => 'Haiti', },
44 'iw_IL', { name => 'Hebrew', country => 'Israel', rtl=>1, },
47 $_->{label} = $_->{name} . ' (' . $_->{country} . ')'
48 foreach values %locales;
54 =item locale_info LOCALE
56 Returns a hash of information about a locale.
61 my($class, $locale) = @_;
64 } elsif (exists $locales{$locale}) {
65 return %{ $locales{$locale} };
67 die "unsupported locale '$locale'\n";
71 =item description LOCALE
73 Returns "Language (Country)" for a locale.
78 my($class, $locale) = @_;
79 $locales{$locale}->{'name'} . ' (' . $locales{$locale}->{'country'} . ')';