package PageCamel::Web::TT::Translate;

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

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

    return $self;
}

sub new($self, $context) {
    return $self;
}

sub tr($self, $data) {

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

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

    return $trans;
<}
...