view lib/IMPL/Resources.pm @ 427:09e0086a82a7 ref20150831 tip

Merge
author cin
date Tue, 15 May 2018 00:51:33 +0300 (2018-05-14)
parents c6e90e02dd17
children
line wrap: on
line source
package IMPL::Resources;
use strict;

our $CurrentLocale ||= 'default';

sub currentLocale {
    $CurrentLocale;
}

sub SetLocale {
    my ($self,$locale) = @_;
    
    $locale =~ tr/\-/_/;
    
    $CurrentLocale = $locale;
}

sub InvokeInLocale {
    my ($this,$locale,$code) = @_;

    local $CurrentLocale;
    $this->SetLocale($locale);    
    
    &$code()
		if $code;
}

1;