SL/Template/Plugin/T8.pm

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