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) = @_;