Mercurial > pub > Impl
annotate Lib/IMPL/Resources.pm @ 318:1838bdb4d238
corrected support of resources localization
| author | cin |
|---|---|
| date | Tue, 14 May 2013 03:38:47 +0400 |
| parents | 16ada169ca75 |
| children | d485467eca92 |
| rev | line source |
|---|---|
| 49 | 1 package IMPL::Resources; |
| 2 use strict; | |
| 3 | |
| 318 | 4 our $CurrentLocale ||= 'default'; |
| 49 | 5 |
| 318 | 6 sub CurrentLocale { |
| 7 $CurrentLocale; | |
| 49 | 8 } |
| 9 | |
| 318 | 10 sub SetLocale { |
| 11 my ($self,$locale) = @_; | |
| 49 | 12 |
| 318 | 13 $CurrentLocale = $locale; |
| 14 } | |
| 15 | |
| 16 sub InvokeInLocale { | |
| 17 my ($this,$locale,$code) = @_; | |
| 18 | |
| 19 local $CurrentLocale = $locale; | |
| 20 eval { | |
| 21 &$code() | |
| 22 if $code; | |
| 23 }; | |
| 24 die $@ | |
| 25 if $@; | |
| 49 | 26 } |
| 27 | |
| 28 1; |