File Coverage

blib/lib/Template/Provider/Encode.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	3	6	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	1	1	100.0
total	35	40	87.5

package Template::Provider::Encode;
use strict;
use warnings;

use base qw(Template::Provider);
use Encode;

our $VERSION = '0.02';
our $INPUT_ENCODING;
our $OUTPUT_ENCODING;

sub new {
    my $class = shift;
    my $options = shift;

    $INPUT_ENCODING  = exists $options->{ie} ? $options->{ie} : undef;
    $OUTPUT_ENCODING = exists $options->{oe} ? $options->{oe} : undef;
    delete $options->{ie};
    delete $options->{oe};

    return $class->SUPER::new($options);
}

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

    if ($INPUT_ENCODING and $OUTPUT_ENCODING) {
        Encode::from_to($data->{text}, $INPUT_ENCODING, $OUTPUT_ENCODING );
    }

    return ($data, $error);
}

1;
__END__