File Coverage

blib/lib/Sledge/Template/TT/I18N.pm

Criterion	Covered	Total	%
statement	15	32	46.8
branch	0	8	0.0
condition			n/a
subroutine	5	8	62.5
pod	0	1	0.0
total	20	49	40.8

package Sledge::Template::TT::I18N;
use strict;
use base qw(Sledge::Template::TT);

use vars qw($VERSION);
$VERSION = '0.01';

sub output {
    my $self = shift;
    my %config = %{$self->{_options}};
    my $input  = delete $config{filename};
    $config{LOAD_TEMPLATES} = [Sledge::Template::TT::I18N::Provider->new(\%config)];
    my $template = Template->new(\%config);
    unless (-e $input) {
    Sledge::Exception::TemplateNotFound->throw(
        "No template file detected. Check your template path.",
    );
    }
    $template->process($input, $self->{_params}, \my $output)
    or Sledge::Exception::TemplateParseError->throw($template->error);
    return $output;
}

package Sledge::Template::TT::I18N::Provider;
use strict;
use base qw(Template::Provider);

sub _load {
    my $self = shift;

    my ($data, $error) = $self->SUPER::_load(@_);

    if(defined $data) {
        $data->{text} = utf8_upgrade($data->{text});
    }

    return ($data, $error);
}

sub utf8_upgrade {
    my @list = map pack('U*', unpack 'U0U*', $_), @_;
    return wantarray ? @list : $list[0];
}

1;
__END__