File Coverage

blib/lib/Dancer/Plugin/Locale/Wolowitz.pm

Criterion	Covered	Total	%
statement	40	51	78.4
branch	7	14	50.0
condition	2	5	40.0
subroutine	11	12	91.6
pod			n/a
total	60	82	73.1

#
# This file is part of Dancer-Plugin-Locale-Wolowitz
#
# This software is copyright (c) 2014 by Natal Ngétal.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package Dancer::Plugin::Locale::Wolowitz;
{
  $Dancer::Plugin::Locale::Wolowitz::VERSION = '0.140120';
}

use strict;
use warnings;

use 5.010;

use Dancer ':syntax';
use Dancer::Plugin;
use Dancer::Exception qw(:all);

use Locale::Wolowitz;

#ABSTRACT: Intenationalization for Dancer

my $w;

#Register exception
register_exception('DirectoryNotFound',
    message_pattern => "Not found directory: %s"
);


add_hook(
    before_template => sub {
        my $tokens = shift;

        $tokens->{l} = sub { _loc(@_); };
    }
);

register loc => sub {
    _loc(@_);
};

sub _loc {
    my ( $str, $args ) = @_;

    $w       = Locale::Wolowitz->new(_path_directory_locale()) unless defined($w);
    my $lang = _lang();

    !$args and return $w->loc($str, $lang);

    my $msg = $w->loc($str, $lang, map($w->loc($_, $lang), @{$args}));

    return $msg;
}

sub _path_directory_locale {
    my $settings = plugin_setting;
    my $path     = $settings->{locale_path_directory}
        // Dancer::FileUtils::path(setting('appdir'), 'i18n');

    if ( ! -d $path ) {
        raise DirectoryNotFound => $path;
    }

    return $path;
}

sub _lang {
    my $settings     = plugin_setting;
    my $lang_session = $settings->{lang_session} || 'lang';
    my $lang;

    # don't force the user to store lang in a session
    if ( setting('session') ) {
        my $session_language = session $lang_session;

        if ( !$session_language ) {
            $lang = _detect_lang_from_browser();

            session $lang_session => $lang;
            return $lang;
        }
        else {
            return $session_language;
        }
    }

    $lang = _detect_lang_from_browser();

    return $lang;
}

sub _detect_lang_from_browser {
    my $lang = request->accept_language;

    return unless $lang;

    $lang =~ s/-\w+//g;
    $lang = (split(/,\s*/,$lang))[0] if $lang =~ /,/;

    return $lang;
}

register_plugin;

1;

__END__