Text::MicroMason::SafeServerPages - Safety ServerPages syntax
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>},
);
Text::MicroMason::SafeServerPages is same as Text::MicroMason::ServerPages but HTML-escaped by default.
Same as Text::MicroMason::ServerPages but =.
Include evaluated value with HTML-escape.
Include evaluated value without HTML-escape.
cho45 <cho45@lowreal.net>
Text::MicroMason, Text::MicroMason::ServerPages
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.
