view release on metacpan or  search on metacpan

t/wrt_html.t  view on Meta::CPAN

  '<a href="https://example.com/" title="example">hi</a>',
  'got a tag with attributes'
);

my $small_tag = small('text', {title => '<thing with angle brackets>'});
# diag($small_tag);

is(
  $small_tag,
  '<small title="&lt;thing with angle brackets&gt;">text</small>',
  'got a tag with escaped attributes'
);