File Coverage

blib/lib/Pod/Simple/Role/XHTML/WithErrata.pm

Criterion	Covered	Total	%
statement	31	32	96.8
branch	5	6	83.3
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	41	43	95.3

package Pod::Simple::Role::XHTML::WithErrata;
use Moo::Role;

our $VERSION = '0.003001';
$VERSION =~ tr/_//d;

use HTML::Entities qw(encode_entities);

use namespace::clean;

around _gen_errata => sub {
  return;    # override the default errata formatting
};

around end_Document => sub {
  my $orig = shift;
  my $self = shift;
  $self->_emit_custom_errata
    if $self->{errata};
  $self->$orig(@_);
};

sub _emit_custom_errata {
  my $self = shift;

  my $tag = sub {
    my $name       = shift;
    my $attributes = '';
    if ( ref( $_[0] ) ) {
      my $attr = shift;
      while ( my ( $k, $v ) = each %$attr ) {
        $attributes .= qq{ $k="} . encode_entities($v) . '"';
      }
    }
    my @body = map { /^
    return join( '', "<$name$attributes>", @body, "" );
  };

  my @errors = map {
    my $line  = $_;
    my $error = $self->{'errata'}->{$line};
    (
      $tag->( 'dt', "Around line $line:" ),
      $tag->( 'dd', map { $tag->( 'p', $_ ) } @$error ),
    );
  } sort { $a <=> $b } keys %{ $self->{'errata'} };

  my $error_count = keys %{ $self->{'errata'} };
  my $s = $error_count == 1 ? '' : 's';

  $self->{'scratch'} = $tag->(
    'div',
    { class => "pod-errors" },
    $tag->( 'p', "$error_count POD Error$s" ),
    $tag->(
      'div',
      { class => "pod-errors-detail" },
      $tag->(
        'p',
        'The following errors were encountered while parsing the POD:'
      ),
      $tag->( 'dl', @errors ),
    ),
  );
  $self->emit;
}

1;
__END__