Mercurial > pub > Impl
view Lib/IMPL/Resources.pm @ 351:cfd7570c2af2
working on TTView: created TTView class for rendering models
author | cin |
---|---|
date | Tue, 08 Oct 2013 17:40:35 +0400 |
parents | d485467eca92 |
children | 39842eedd923 |
line wrap: on
line source
package IMPL::Resources; use strict; our $CurrentLocale ||= 'default'; sub currentLocale { $CurrentLocale; } sub SetLocale { my ($self,$locale) = @_; $CurrentLocale = $locale; } sub InvokeInLocale { my ($this,$locale,$code) = @_; local $CurrentLocale = $locale; eval { &$code() if $code; }; die $@ if $@; } 1;