Mercurial > pub > Impl
view lib/IMPL/Resources.pm @ 413:af8d359ee4cc ref20150831
working on di container
author | cin |
---|---|
date | Thu, 24 Sep 2015 12:19:30 +0300 |
parents | c6e90e02dd17 |
children |
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); &$code() if $code; } 1;