File Coverage

blib/lib/Mojolicious/Plugin/Message/Locale.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Mojolicious::Plugin::Message::Locale;
use Mojo::Base 'Mojolicious::Plugin';

our $VERSION = '0.03';

sub register {
    my ($self, $app, $conf) = @_;

    $conf->{default_message} ||= '';
    $conf->{locale}          ||= 'en';
    $conf->{file}            ||= 'locale.conf';

    my $messages = $app->plugin('Config', { file => $conf->{file} } );

    $app->helper ( set_locale => sub {
        my ($c, $loc,) = @_;
	$conf->{locale} = $loc ? $loc : 'en';
    });

    $app->helper ( locale => sub {
        my ($c, $key, $group,) = @_;
	unless ( $key ) {
	    warn 'key is undefined or incorrenct.';
            return $conf->{default_message};
        }
	$group ||= 'common';

        if ( exists $messages->{$group}->{$key}->{$conf->{locale}} ) {
            $messages->{$group}->{$key}->{$conf->{locale}};
	} elsif ( exists $messages->{'common'}->{$key}->{$conf->{locale}} ) {
	    $messages->{'common'}->{$key}->{$conf->{locale}}
	} else {
	    $conf->{default_message};
        }
    });
}

1;
__END__