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>

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.