File Coverage

blib/lib/ClearPress/Localize.pm

Criterion	Covered	Total	%
statement	21	36	58.3
branch	0	4	0.0
condition	0	3	0.0
subroutine	7	10	70.0
pod	3	3	100.0
total	31	56	55.3

#!/usr/bin/env perl
# -*- mode: cperl; tab-width: 8; indent-tabs-mode: nil; basic-offset: 2 -*-
# vim:ts=8:sw=2:et:sta:sts=2
#########
# Author: rmp
#
package ClearPress::Localize;
use strict;
use warnings;
use base qw(Locale::Maketext);
use HTTP::ClientDetect::Language;
use Locale::Maketext::Lexicon {
    _auto  => 1,
    _style => 'gettext',
  };
use Carp;

our $VERSION = q[477.1.4];

sub init {
  my ($class, $locales) = @_;
  Locale::Maketext::Lexicon->import($locales);
  return 1;
}

sub lang {
  my $lang_detect = HTTP::ClientDetect::Language->new(server_default => 'en_GB');
  my $req = {
	     accept_language => $ENV{HTTP_ACCEPT_LANGUAGE},
	    };

  my $sym = \%ClearPress::request::;
  if(!exists $sym->{accept_language}) {
    *ClearPress::request::accept_language = sub { my $self = shift; return $self->{accept_language}; };
  }

  bless $req, 'ClearPress::request';
  my $lang = $lang_detect->language($req);

#  if($lang) {
#    carp qq[Detected $lang from $ENV{HTTP_ACCEPT_LANGUAGE}];
#  }
  return $lang;
}

sub localizer {
  my ($class, $lang) = @_;

  my $lh = __PACKAGE__->get_handle($lang || __PACKAGE__->lang());
  if(!$lh) {
    carp qq[Could not construct localizer for $lang];
  }
  return $lh;
}

1;
__END__