SL/Template/Plugin/T8.pm

   1 package SL::Template::Plugin::T8;
   2
   3 use strict;
   4
   5 use Template::Plugin::Filter;
   6 use base qw( Template::Plugin::Filter );
   7
   8 sub init {
   9   my $self = shift;
  10
  11   # first arg can specify filter name
  12   $self->install_filter($self->{ _ARGS }->[0] || 'T8');
  13
  14   return $self;
  15 }
  16
  17 sub filter {
  18   my ($self, $text, $args) = @_;
  19   return $::locale->text($text, @{ $args || [] }) || $text;
  20 }
  21
  22 return 'SL::Template::Plugin::T8';