The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Text-MicroMason-SafeServerPages-0.03
River stage zero No dependents
++
/ Text::MicroMason::SafeServerPages

NAME

Text::MicroMason::SafeServerPages - Safety ServerPages syntax

SYNOPSIS

  use Text::MicroMason;
  use Text::MicroMason::SafeServerPages;

  my $m = Text::MicroMason->new(qw/ -SafeServerPages /);

  my $template = <<'EOF';
  <% my $s = \%ARGS; %>
  <html>
  <title><%= $s->{title} %></title>

  <%raw= $s->{body} %>
  </html>
  EOF

  my $cr = $m->compile( text => $template );

  print $cr->(
    title => "Foo<bar>",
    body  => qq{<div class="section">aaaa</div>},
  );

DESCRIPTION

Text::MicroMason::SafeServerPages is same as Text::MicroMason::ServerPages but HTML-escaped by default.

Template Syntax

Same as Text::MicroMason::ServerPages but =.

  • <%= perl expression %>

    Include evaluated value with HTML-escape.

  • <%raw= perl expression %>

    Include evaluated value without HTML-escape.

AUTHOR

cho45 <cho45@lowreal.net>

SEE ALSO

Text::MicroMason, Text::MicroMason::ServerPages

LICENSE

Original is Text::MicroMason::ServerPages.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.