...
use base qw(Template::Plugin);

use Template::Plugin;
use Template::Exception;

sub load {
    my ($class, $context) = @_;
    my $self = bless {
    }, $class;

    return $self;
}

sub new {
    my ($self, $context) = @_;
    return $self;
}
...
sub tr {
    my ($self, $data) = @_;

    return $data if($data eq '');

    my $lang = $self->getLang;
    my $trans = tr_translate($lang, $data);

    return $trans;
}
...