File Coverage

blib/lib/Cake/Plugins/I18N.pm

Criterion	Covered	Total	%
statement	56	56	100.0
branch	11	14	78.5
condition	8	19	42.1
subroutine	9	9	100.0
pod	2	3	66.6
total	86	101	85.1

package Cake::Plugins::I18N;
use Carp;
use Cake 'Plugin';
my $settings = {};
my $langs = {};

sub loc {
    my $self = shift;
    my $string = shift;
    $settings ||= settings();
    my $dir = $settings->{path} || $self->app->{'dir'} . '/I18N';
    my $lang = $settings->{lang} || 'en';
    my $path = $dir.'/'.$lang;
    my $file;

    #croak "I18N Folder Not found in $path app directory please create one" if (! -e "$path");
    if (ref $string eq 'ARRAY'){
        $lang = $lang . '::' . $string->[0];
        $file = $path.'/'.$string->[0].'.po';
        $string = $string->[1];
    } else {
        $file = $path.'.po';
    }

    if (!$langs->{$lang}){ ##memoize
        my %hash = Cake::Plugins::I18N::Lexi::_get_lexi($file);
        {
            $langs->{$lang} = sub {
                my $str = shift;
                my $hash = \%hash;
                $str = $hash->{$str} || $str;
                my @arr = ();
                if (@_){
                    @arr =  ('',  @_ > 1 || !ref $_[0] ?  @_ : @{$_[0]} );
                    $str =~ s/%(\d+)/$arr[$1]/g;
                }
                else {$str =~ s/%(\d+)//g;}
                return $str;
            };
        }
    }

    return $langs->{$lang}->($string,@_);
}

sub set_lang {
    my $self = shift;
    my $lang = shift;
    $settings ||= settings();
    $settings->{lang} = $lang if $lang;
    return 0;
}

sub get_lang {
    my $self = shift;
    return $settings->{lang} || 'en';
}

register();

package #hide
    Cake::Plugins::I18N::Lexi;

my %hash;
my $last;

sub msgstr {
    my $str = shift;
    $hash{$last} = $str if $last;
    $last = undef;
}

sub msgid {
    my $str = shift;
    $last = $str;
}

sub _get_lexi {
    my $package = shift;
    my $data;
    open my $DATA, '<', $package
    or die "Can't open $package for input:\n$!";
    binmode $DATA,":utf8";
    $data = do { local $/;  <$DATA> };
    close $DATA;
    $data =~ s/(\w+["'])[\r\n]/$1;\n/g;
    eval "$data";
    return %hash;
}

1;

__END__