Mercurial > pub > Impl
view Lib/IMPL/Resources.pm @ 362:715b9959b207
WebView: initial work on metadata providers
author | cin |
---|---|
date | Thu, 28 Nov 2013 20:00:20 +0400 |
parents | 39842eedd923 |
children | 2eed076cb944 |
line wrap: on
line source
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); eval { &$code() if $code; }; die $@ if $@; } 1;