SL/Template/Plugin/JavaScript.pm

   1 package SL::Template::Plugin::JavaScript;
   2
   3 use base qw( Template::Plugin );
   4 use Template::Plugin;
   5
   6 use strict;
   7
   8 sub new {
   9   my $class   = shift;
  10   my $context = shift;
  11
  12   bless { }, $class;
  13 }
  14
  15 sub escape {
  16   my $self = shift;
  17   my $text = shift;
  18
  19   $text =~ s|\"|\\\"|g;
  20
  21   return $text;
  22 }
  23
  24 1;
  25
  26