File Coverage

blib/lib/App/sdview/Output/HTML.pm

Criterion	Covered	Total	%
statement	114	124	91.9
branch	12	14	85.7
condition	3	3	100.0
subroutine	19	21	90.4
pod	0	11	0.0
total	148	173	85.5

#  You may distribute under the terms of either the GNU General Public License
#  or the Artistic License (the same terms as Perl itself)
#
#  (C) Paul Evans, 2023 -- [e-mail]

use v5.26;
use warnings;

use Object::Pad 0.800;

package App::sdview::Output::HTML 0.03;
class App::sdview::Output::HTML
   :does(App::sdview::Output 0.13)
   :strict(params);

use constant format => "HTML";

use String::Tagged::HTML;

=head1 NAME

C - generate HTML output from L

=head1 SYNOPSIS

   $ sdview Some/File.pod -o HTML > index.html

=head1 DESCRIPTION

This output module adds to L the ability to output HTML; or at
least, a page fragment that might be used to construct a full HTML page.

Currently, no header or CSS is generated, only the main body content by
relatively simple conversion - headers to C<<  >>, C<<  >>, etc.. and
inline formatting within paragraphs.

=cut

method output_head1 ( $para ) { $self->_output_para( "h1", $para ); }
method output_head2 ( $para ) { $self->_output_para( "h2", $para ); }
method output_head3 ( $para ) { $self->_output_para( "h3", $para ); }
method output_head4 ( $para ) { $self->_output_para( "h4", $para ); }

method output_plain ( $para, $prefix = "" ) { $self->_output_para( "p", $para, $prefix ); }

method _output_para ( $tag, $para, $prefix = "" )
{
   $self->say( $prefix, $self->_convert_str( $para->text, $tag ) );
}

method output_verbatim ( $para, $prefix = "" )
{
   $self->say( "$prefix\n" . $self->_convert_str( $para->text ), "" );
}

method output_item ( $para, $prefix = "", $tag = "li" )
{
   $self->_output_para( $tag, $para, $prefix );
}

method output_list_bullet ( $para, $prefix = "" ) { $self->_output_list( "ul", $para, $prefix ); }
method output_list_number ( $para, $prefix = "" ) { $self->_output_list( "ol", $para, $prefix ); }
method output_list_text   ( $para, $prefix = "" ) { $self->_output_list( "dl", $para, $prefix ); }

method _output_list ( $tag, $para, $prefix )
{
   $self->say( "$prefix<$tag>" );

   foreach my $item ( $para->items ) {
      if( $item->type eq "item" and $para->listtype eq "text" ) {
         $self->say( "$prefix  ", $self->_convert_str( $item->term, "dt" ) );
         $self->output_item( $item, "$prefix  ", "dd" );
      }
      else {
         my $code = $self->can( "output_" . ( $item->type =~ s/-/_/gr ) ) or
            die "TODO: Unhandled item type " . $item->type;
         $self->$code( $item, "$prefix  " );
      }
   }

   $self->say( "$prefix" );
}

method output_table ( $para, $prefix = "" )
{
   my @rows = $para->rows;

   $self->say( "$prefix" ); " ); " ); 




89




 





 





 





 





 





 



   




90




2





 





 





 





 





13



    my $first = 1; 




91




2





 





 





 





 





5



    foreach my $row ( @rows ) { 




92




4




  
100
  




 





 





 





26



       my $celltag = $first ? "th" : "td"; 




93




4





 





 





 





 





7



       undef $first; 




94




 





 





 





 





 





 



   




95




4





 





 





 





 





12



       $self->say( "$prefix  




96




 





 





 





 





 





 



   




97




4





 





 





 





 





26



       foreach my $cell ( @$row ) { 




98




10




  
100
  




 





 





 





1170



          my $align = 




 




 




  
100
  




 





 





 





 



   




99




 





 





 





 





 





 



             $cell->align eq "centre" ? "center" : 




100




 





 





 





 





 





 



             $cell->align eq "right"  ? "right"  : 




101




 





 





 





 





 





 



                                        undef; 




102




 





 





 





 





 





 



   




103




10




  
100
  




 





 





 





86



          my $openelem = defined $align ? "<$celltag style=\"text-align: $align;\">" : 




104




 





 





 





 





 





 



                                          "<$celltag>"; 




105




10





 





 





 





 





44



          $self->say( "$prefix    $openelem", $self->_convert_str( $cell->text ), "" ); 




106




 





 





 





 





 





 



       } 




107




4





 





 





 





 





721



       $self->say( "$prefix  




108




 





 





 





 





 





 



    } 




109




 





 





 





 





 





 



   




110




2





 





 





 





 





67



    $self->say( "$prefix" );

   my $first = 1;
   foreach my $row ( @rows ) {
      my $celltag = $first ? "th" : "td";
      undef $first;

      $self->say( "$prefix

      foreach my $cell ( @$row ) {
         my $align =
            $cell->align eq "centre" ? "center" :
            $cell->align eq "right"  ? "right"  :
                                       undef;

         my $openelem = defined $align ? "<$celltag style=\"text-align: $align;\">" :
                                         "<$celltag>";
         $self->say( "$prefix    $openelem", $self->_convert_str( $cell->text ), "" );
      }
      $self->say( "$prefix
   }

   $self->say( "$prefix
}

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 );
}

=head1 TODO

=over 4

=item *

Customisable page header, CSS, general page template?

=back

=cut

=head1 AUTHOR

Paul Evans

=cut

0x55AA;