package PodHTML2;

use strict;
use warnings;
use utf8;

use base qw/Pod::POM::View PodHTML/;

sub view_head1 {
   my ($self, $item) = @_;
   $item->title->present ($self), "\n\n",
   $item->content->present ($self)
}

sub view_seq_link {
   my ($self, $item) = @_;
   my ($title, $link) = split '\|', $item, 2;
   "<a href='$link'>$title</a>"
}

sub view_item {
   my ($self, $item) = @_;
   my $title;
   if ($item->title =~ /^L</) {
      $title = $item->title;
      $title =~ s/L<(.+)>/- $1/;
      $title = $self->xmlise ($title);
      $title = $self->view_seq_link ($title);
   } else {
      $title = $item->title;
      $title = $self->xmlise ($title);
   }

   '<li>', ($item->title eq '*' ? '<b>---</b> ' : '<b>' . $title . '</b> '), $item->content->present ($self), '</li>'
}

1;