SL/Template/Plugin/LxLatex.pm

   1 package SL::Template::Plugin::LxLatex;
   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] || 'LxLatex');
  18
  19   return $self;
  20 }
  21
  22 sub filter {
  23   my ($self, $text, $args) = @_;
  24   return $::locale->quote_special_chars('Template/LaTeX', $text);
  25 }
  26
  27 return 'SL::Template::Plugin::LxLatex';