Mercurial > pub > Impl
view Lib/IMPL/Resources.pm @ 335:e8be9062ecf2
improved resource classes, contracts are deprecated
author | cin |
---|---|
date | Thu, 13 Jun 2013 20:13:24 +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;