i18n, RT#12515

1 files changed, 61 insertions, 0 deletions

diff --git a/FS/FS/Locales.pm b/FS/FS/Locales.pm
new file mode 100644
index 000000000..607f2be2d
--- /dev/null
+++ b/FS/FS/Locales.pm
@@ -0,0 +1,61 @@
+package FS::Locales;
+
+use strict;
+use Tie::IxHash;
+
+=head1 NAME
+
+FS::Locales - Supported locales
+
+=head1 SYNOPSIS
+
+  use FS::Locales;
+
+  my @locales = FS::Locales->locales;
+
+=head1 DESCRIPTION
+
+FS::Locales provides a list of supported locales.
+
+=head1 CLASS METHODS
+
+=over 4
+
+=item locales
+
+Returns a list of the available locales.
+
+=cut
+
+tie our %locales, 'Tie::IxHash',
+  'en_US', { name => 'English', country => 'United States', },
+  'iw_IL', { name => 'Hebrew',  country => 'Israel', rtl=>1, },
+;
+
+sub locales {
+  keys %locales;
+}
+
+=item locale_info LOCALE
+
+Returns a hash of information about a locale.
+
+=cut
+
+sub locale_info {
+  my($class, $locale) = @_;
+  %{ $locales{$locale} };
+}
+
+=back
+
+=head1 BUGS
+
+=head1 SEE ALSO
+
+L<FS::Msgcat>
+
+=cut
+
+1;
+