Mercurial > pub > Impl
comparison Lib/IMPL/Resources.pm @ 319:d485467eca92
small fixes
| author | cin |
|---|---|
| date | Wed, 15 May 2013 02:00:42 +0400 |
| parents | 1838bdb4d238 |
| children | 39842eedd923 |
comparison
equal
deleted
inserted
replaced
| 318:1838bdb4d238 | 319:d485467eca92 |
|---|---|
| 1 package IMPL::Resources; | 1 package IMPL::Resources; |
| 2 use strict; | 2 use strict; |
| 3 | 3 |
| 4 our $CurrentLocale ||= 'default'; | 4 our $CurrentLocale ||= 'default'; |
| 5 | 5 |
| 6 sub CurrentLocale { | 6 sub currentLocale { |
| 7 $CurrentLocale; | 7 $CurrentLocale; |
| 8 } | 8 } |
| 9 | 9 |
| 10 sub SetLocale { | 10 sub SetLocale { |
| 11 my ($self,$locale) = @_; | 11 my ($self,$locale) = @_; |
