projekt kivitendo

sub escape_js {

  my ($self, $text) = @_;

  $text =~ s|\\|\\\\|g;

  $text =~ s|\"|\\\"|g;

  $text =~ s|\n|\\n|g;

  return SL::Presenter::EscapedText->new(text => $text, is_escaped => 1);

}

=item C<escape_js $text>

Returns a JavaScript-escaped version of C<$text>. Instead of a string

an instance of the thin proxy-object L<SL::Presenter::EscapedText> is

returned.

It is safe to call C<escape> on an instance of

L<SL::Presenter::EscapedText>. This is a no-op (the same instance will

be returned).