SL/Template/Plugin/T8.pm

   1 package SL::Template::Plugin::T8;
   2
   3 use strict;
   4 use parent qw( Template::Plugin::Filter );
   5
   6 my $cached_instance;
   7
   8 sub new {
   9   my $class = shift;
  10
  11   return $cached_instance ||= $class->SUPER::new(@_);
  12 }
  13
  14 sub init {
  15   my $self = shift;
  16
  17   $self->install_filter($self->{ _ARGS }->[0] || 'T8');
  18
  19   return $self;
  20 }
  21
  22 sub filter {
  23   my ($self, $text, $args) = @_;
  24   return $::locale->text($text, @{ $args || [] }) || $text;
  25 }
  26
  27 return 'SL::Template::Plugin::T8';