--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/IMPL/Resources.pm	Fri Sep 04 19:40:23 2015 +0300
@@ -0,0 +1,28 @@
+package IMPL::Resources;
+use strict;
+
+our $CurrentLocale ||= 'default';
+
+sub currentLocale {
+    $CurrentLocale;
+}
+
+sub SetLocale {
+    my ($self,$locale) = @_;
+    
+    $locale =~ tr/\-/_/;
+    
+    $CurrentLocale = $locale;
+}
+
+sub InvokeInLocale {
+    my ($this,$locale,$code) = @_;
+
+    local $CurrentLocale;
+    $this->SetLocale($locale);    
+    
+    &$code()
+		if $code;
+}
+
+1;