[Jifty-commit] r4278 - jifty/trunk/lib/Jifty

[jifty-commit at lists.jifty.org]

Author: clkao
Date: Sat Oct 20 05:01:36 2007
New Revision: 4278

Modified:
   jifty/trunk/lib/Jifty/I18N.pm

Log:
Jifty::I18N: provide available_languages method.

Modified: jifty/trunk/lib/Jifty/I18N.pm
==============================================================================
--- jifty/trunk/lib/Jifty/I18N.pm	(original)
+++ jifty/trunk/lib/Jifty/I18N.pm	Sat Oct 20 05:01:36 2007
@@ -83,11 +83,10 @@
             $it;
         } @$allowed_lang;
 
-        foreach my $sym (sort keys %Jifty::I18N::) {
-            $sym =~ /^(\w+)::/ or next;
+        foreach my $lang ($self->available_languages) {
             # "AllowedLang: zh" should let both zh_tw and zh_cn survive,
             # so we just check ^ but not $.
-            $1 =~ /^$allowed_regex/ or delete $Jifty::I18N::{$sym};
+            $lang =~ /^$allowed_regex/ or delete $Jifty::I18N::{$lang.'::'};
         }
     }
 
@@ -126,6 +125,16 @@
     return $self;
 }
 
+=head2 available_languages
+
+Return an array of available languages
+
+=cut
+
+sub available_languages {
+    return map { /^(\w+)::/ ? $1 : () } sort keys %Jifty::I18N::;
+}
+
 =head2 _get_file_patterns
 
 Get list of patterns for all PO files in the project.