File Coverage

lib/Pod/PseudoPod/HTML.pm

Criterion	Covered	Total	%
statement	156	162	96.3
branch	37	42	88.1
condition	1	2	50.0
subroutine	75	79	94.9
pod	3	73	4.1
total	272	358	75.9

package Pod::PseudoPod::HTML;
use strict;
use vars qw( $VERSION );
$VERSION = '0.19';
use Carp ();
use base qw( Pod::PseudoPod );

use HTML::Entities 'encode_entities';

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_targets( 'html', 'HTML' );
  $new->accept_targets_as_text( qw(author blockquote comment caution
      editor epigraph example figure important listing literal note
      production programlisting screen sidebar table tip warning) );

  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->add_css_tags(0);
  $new->add_body_tags(0);
  $new->codes_in_verbatim(1);
  $new->{'scratch'} = '';
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text {
    # escape special characters in HTML (<, >, &, etc)
    $_[0]{'scratch'} .= $_[0]{'in_verbatim'} ? encode_entities( $_[1] ) : $_[1]
}

sub start_Para     { $_[0]{'scratch'} .= '' }
sub start_Verbatim { $_[0]{'scratch'} .= ''; $_[0]{'in_verbatim'} = 1}

sub start_head0 {  $_[0]{'scratch'} = '' }
sub start_head1 {  $_[0]{'scratch'} = '' }
sub start_head2 {  $_[0]{'scratch'} = '' }
sub start_head3 {  $_[0]{'scratch'} = '' }
sub start_head4 {  $_[0]{'scratch'} = '' }

sub start_item_bullet { $_[0]{'scratch'} .= '' }
sub start_item_number { $_[0]{'scratch'} .= "$_[1]{'number'}. "  }
sub start_item_text   { $_[0]{'scratch'} .= ''   }

sub start_over_bullet { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub start_over_text   { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub start_over_block  { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub start_over_number { $_[0]{'scratch'} .= ''; $_[0]->emit() }

sub end_over_bullet { $_[0]{'scratch'} .= ''; $_[0]->emit('nowrap') }
sub end_over_text   { $_[0]{'scratch'} .= ''; $_[0]->emit('nowrap') }
sub end_over_block  { $_[0]{'scratch'} .= ''; $_[0]->emit('nowrap') }
sub end_over_number { $_[0]{'scratch'} .= ''; $_[0]->emit('nowrap') }

# . . . . . Now the actual formatters:

sub end_Para     { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub end_Verbatim {
    $_[0]{'scratch'}     .= '';
    $_[0]{'in_verbatim'}  = 0;
    $_[0]->emit('nowrap');
}

sub end_head0       { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub end_head1       { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub end_head2       { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub end_head3       { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub end_head4       { $_[0]{'scratch'} .= ''; $_[0]->emit() }

sub end_item_bullet { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub end_item_number { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub end_item_text   { $_[0]->emit() }

sub start_sidebar {
  my ($self, $flags) = @_;
  $self->{'scratch'} = $self->{'css_tags'} ? '' : '';
  if ($flags->{'title'}) {
    $self->{'scratch'} .= "\n" . $flags->{'title'} . "";
  }
  $self->emit('nowrap');
}

sub end_sidebar { $_[0]{'scratch'} .= $_[0]->{'css_tags'} ?  '' : ''; $_[0]->emit() }

sub start_figure {
  my ($self, $flags)      = @_;
  $self->{'in_figure'}    = 1;

  $self->{'figure_title'} = $flags->{'title'} if $flags->{'title'};
}

sub end_figure {
  my ($self, $flags)   = @_;
  $self->{'in_figure'} = 0;

  if ($self->{'figure_title'})
  {
    $self->{'scratch'} .= "" . $self->{'figure_title'} . "";
    delete $self->{'figure_title'};
  }

  $self->emit('nowrap');
}

# This handles =begin and =for blocks of all kinds.
sub start_for {
  my ($self, $flags) = @_;
  if ($self->{'css_tags'}) {
    $self->{'scratch'} .= '
    $self->{'scratch'} .= ' class="'.$flags->{'target'}.'"' if ($flags->{'target'});
    $self->{'scratch'} .= '>';
    $self->emit('nowrap');
  }

}
sub end_for {
  my ($self) = @_;
  if ($self->{'css_tags'}) {
    $self->{'scratch'} .= '';
    $self->emit('nowrap');
  }
}

sub start_table {
  my ($self, $flags) = @_;
  if ($flags->{'title'}) {
    $self->{'scratch'} .= "Table: " . $flags->{'title'} . "\n";
  }
  $self->{'scratch'} .= ''; 




135




7





 





 





 





 





21



   $self->emit('nowrap'); 




136




 





 





 





 





 





 



 } 




137




 





 





 





 





 





 



   




138




7





 





 




  
7
  



  
0
  




10



 sub end_table   { $_[0]{'scratch'} .= ''; $_[0]->emit('nowrap') }
  $self->emit('nowrap');
}

sub end_table   { $_[0]{'scratch'} .= '

sub start_headrow { $_[0]{'in_headrow'} = 1 }
sub start_bodyrows { $_[0]{'in_headrow'} = 0 }

sub start_row { $_[0]{'scratch'} .= "
sub end_row { $_[0]{'scratch'} .= '

sub start_cell { $_[0]{'scratch'} .= $_[0]{'in_headrow'} ? '
sub end_cell {
  my $self = shift;
  $self->{'scratch'} .= ($self->{'in_headrow'}) ? '' : '
  $self->emit('nowrap');
}

sub start_Document {
  my ($self) = @_;
  if ($self->{'body_tags'}) {
    $self->{'scratch'} .= "\n";
    $self->{'scratch'} .= "\n" if $self->{'css_tags'};
    $self->emit('nowrap');
  }
}
sub end_Document   {
  my ($self) = @_;
  if ($self->{'body_tags'}) {
    $self->{'scratch'} .= "\n";
    $self->emit('nowrap');
  }
}

# Handling code tags
sub start_A { $_[0]{'scratch'} .= '
171
sub end_A   { $_[0]{'scratch'} .= '">link' }

sub start_B { $_[0]{'scratch'} .= '' }
sub end_B   { $_[0]{'scratch'} .= '' }

sub start_C { $_[0]{'scratch'} .= '' }
sub end_C   { $_[0]{'scratch'} .= '' }

sub start_E { $_[0]{'scratch'} .= '&' }
sub end_E   { $_[0]{'scratch'} .= ';' }

sub start_F { $_[0]{'scratch'} .= ($_[0]{'in_figure'}) ? '
183
sub end_F   { $_[0]{'scratch'} .= ($_[0]{'in_figure'}) ? '">' : '' }

sub start_G { $_[0]{'scratch'} .= '' }
sub end_G   { $_[0]{'scratch'} .= '' }

sub start_H { $_[0]{'scratch'} .= '' }
sub end_H   { $_[0]{'scratch'} .= '' }

sub start_I { $_[0]{'scratch'} .= '' }
sub end_I   { $_[0]{'scratch'} .= '' }

sub start_N {
  my ($self) = @_;
  $self->{'scratch'} .= '' if ($self->{'css_tags'});
  $self->{'scratch'} .= ' (footnote: ';
}
sub end_N {
  my ($self) = @_;
  $self->{'scratch'} .= ')';
  $self->{'scratch'} .= '' if $self->{'css_tags'};
}

sub start_R { $_[0]{'scratch'} .= '' }
sub end_R   { $_[0]{'scratch'} .= '' }

sub start_U { $_[0]{'scratch'} .= '' if $_[0]{'css_tags'} }
sub end_U   { $_[0]{'scratch'} .= '' if $_[0]{'css_tags'} }

sub start_Z { $_[0]{'scratch'} .= '
212
sub end_Z   { $_[0]{'scratch'} .= '">' }

sub emit {
  my($self, $nowrap) = @_;
  my $out = $self->{'scratch'} . "\n";
  print {$self->{'output_fh'}} $out, "\n";
  $self->{'scratch'} = '';
  return;
}

# Set additional options

sub add_body_tags { $_[0]{'body_tags'} = $_[1] }
sub add_css_tags { $_[0]{'css_tags'} = $_[1] }

# bypass built-in E<> handling to preserve entity encoding
sub _treat_Es {}

1;

__END__