view release on metacpan or  search on metacpan

lib/App/sdview/Output/HTML.pm  view on Meta::CPAN

      $self->say( "$prefix  </tr>" );
   }

   $self->say( "$prefix</table>" );
}

method _convert_str ( $s, $tag = undef )
{
   return String::Tagged::HTML->clone(
      $s,
      only_tags => [qw( bold italic monospace underline strikethrough link )],
      convert_tags => {
         bold => "strong",
         italic => "em",
         monospace => "tt",
         underline => "u",
         strikethrough => "s",
         # TODO: F
         link => sub ($t, $v) {
            ( defined $v->{uri} ) ? ( a => { href => $v->{uri} } ) : ()
         },
      },
   )->as_html( $tag );

t/01output-html.t  view on Meta::CPAN

EOPOD
<<"EOHTML";
<h1>Head1</h1>
<h2>Head2</h2>
<p>Contents here</p>
EOHTML

dotest "Formatting (from Pod)", pod => <<"EOPOD",
=pod

B<bold> B<< <bold> >>

I<italic>

C<code> C<< code->with->arrows >>

L<link|target://> L<Module::Here>

U<underline>
EOPOD
<<"EOHTML";
<p><strong>bold</strong> <strong>&lt;bold&gt;</strong></p>
<p><em>italic</em></p>
<p><tt>code</tt> <tt>code-&gt;with-&gt;arrows</tt></p>
<p><a href="target://">link</a> <a href="https://metacpan.org/pod/Module::Here">Module::Here</a></p>
<p><u>underline</u></p>
EOHTML

# POD can't do strikethrough so we'll ask Markdown
dotest "Formatting (from Markdown)", markdown => <<"EOMARKDOWN",
~~strikethrough~~
EOMARKDOWN