File Coverage

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

Criterion	Covered	Total	%
statement	34	47	72.3
branch	7	16	43.7
condition	4	8	50.0
subroutine	11	12	91.6
pod			n/a
total	56	83	67.4

#
# This file is part of Dancer-Plugin-Locale-Wolowitz
#
# This software is copyright (c) 2016 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.160190';
use strict;
use warnings;

use 5.010;

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

use Locale::Wolowitz;

#ABSTRACT: Internationalization for Dancer

my $w;

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


add_hook(
    before_template => sub {
        $_[0]->{l} = sub { _loc(@_); };
    }
);

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

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

    $w       = Locale::Wolowitz->new(_path_directory_locale()) unless defined($w);
    my $lang = $_[2] || _lang();

    # return early if no args array-ref given
    !$_[1] and return $w->loc($_[0], $lang); # was: !$args and return $w->loc($str, $lang);

    return $w->loc($_[0], $lang, map($w->loc($_, $lang), @{$_[1]}));
}

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

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

    return $path;
}

sub _lang {
    my $lang;
    # don't force the user to store lang in a session
    if ( setting('session') ) {
        my $lang_session = plugin_setting()->{lang_session} || 'lang';
        my $session_language = session $lang_session;
        return $session_language if $session_language;

        $lang = _detect_lang_from_browser();
        session $lang_session => $lang;
        return $lang;
    }

    $lang = _detect_lang_from_browser();

    return $lang;
}

sub _detect_lang_from_browser {
    # a rude shortcut, for no-session contexts, so multiple loc() calls within the
    # same request don't trigger regex matching/string munging over and over
    return request->{__dancer_plugin_locale_wolowitz_detected_language} if request->{__dancer_plugin_locale_wolowitz_detected_language};

    my $lang = request->accept_language;
    return unless $lang;

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

    request->{__dancer_plugin_locale_wolowitz_detected_language} = $lang; # this is a bit rude, but it saves us from detecting lang over and over (with regex and all) within the same request
    return $lang;
}

register_plugin;

1;

__END__