view release on metacpan or  search on metacpan

lib/HTML/Composer.pm  view on Meta::CPAN

use HTML::Escape qw(escape_html);

use Sereal::Encoder;
use HTML::Composer::Unsafe;

my @tags_list = qw(
  a abbr address area article aside audio b base bdi bdo blockquote body
  br button canvas caption cite code col colgroup data datalist dd del
  details dfn dialog div dl dt em embed fieldset figcaption figure
  footer form h1 h2 h3 h4 h5 h6 head header hgroup hr html i iframe
  img input ins kbd label legend li link main map mark menu meta
  meter nav noscript object ol optgroup option output p param picture
  plaintext pre progress q rp rt ruby s samp script search section
  select slot small source span strong style sub summary sup table
  tbody td template textarea tfoot th thead time title tr track u
  ul var video wbr
);

my %tags_map = map { $_ => 1 } @tags_list;

=head2 new(%ARGS)