File Coverage

blib/lib/Template/Plugin/Decode.pm

Criterion	Covered	Total	%
statement	15	23	65.2
branch	0	2	0.0
condition	0	3	0.0
subroutine	5	7	71.4
pod	0	2	0.0
total	20	37	54.0

package Template::Plugin::Decode;
use strict;
use warnings;

use 5.008001;

require Template::Plugin::Filter;
use base qw(Template::Plugin::Filter);
use vars qw($VERSION $DYNAMIC $FILTER_NAME);

$VERSION     = 0.02;
$DYNAMIC     = 0;
$FILTER_NAME = 'decode';

sub init {
    my $self = shift;
    my $args = shift;
    my $name = $self->{_ARGS}->[0] || $FILTER_NAME;
    $self->install_filter($name);
    return $self;
}

sub filter {
    my($self, $text) = @_;
	utf8::decode($text) unless utf8::is_utf8($text);
	return $text;
}

1;
__END__