File Coverage

lib/PPI/Transform/Doxygen/POD.pm

Criterion	Covered	Total	%
statement	29	34	85.2
branch	2	4	50.0
condition	0	3	0.0
subroutine	10	12	83.3
pod	6	6	100.0
total	47	59	79.6

package PPI::Transform::Doxygen::POD;

use 5.010001;
use strict;
use warnings;
use parent qw(Pod::POM::View::HTML);

our $VERSION = '0.33';

our $PREFIX = '';

sub view_pod {
    my ($self, $pod) = @_;
    return $pod->content->present($self);
}

sub view_head1 {
    my ($self, $head1) = @_;
    my $title = $head1->title->present($self);
    (my $name = $title) =~ s/\s/_/g;
    return "\n\@section ${PREFIX}_$name $title\n" . $head1->content->present($self);
}

sub view_head2 {
    my ($self, $head2) = @_;
    my $title = $head2->title->present($self);
    (my $name = $title) =~ s/\s/_/g;
    my $sect = $title =~ /[\w:]+\s*\(.*\)/
             ? "\n"
             : "\n\@subsection $name $title\n";
    return $sect . $head2->content->present($self);
}

sub view_seq_code {
    my ($self, $text) = @_;
    return qq($text);
}

sub view_verbatim {
    my ($self, $text) = @_;
    _unescape($text);
    return "\n\@code\n$text\n\@endcode\n";
}

sub view_seq_link {
    my ($self, $link) = @_;
    my($title, $pre) = split(/\|/, $link);
    my $url = $pre && $pre =~ m(^\w+://)
            ? qq($title)
            : $self->SUPER::view_seq_link($link);
    return $url;
}

my %XML_TO = (
  '&'  => '&',
  '<'  => '<',
  '>'  => '>',
  '"'  => '"',
  '\'' => '''
);
my %XML_FROM = reverse %XML_TO;

sub _unescape {
    $_[0] =~ s!\Q$_!$XML_FROM{$_}!g for keys %XML_FROM;
    $_[0] =~ s!\\(\@|\\|\%|#)!$1!g;
}

sub _escape {
    $_[0] =~ s!\Q$_!$XML_TO{$_}!g for keys %XML_TO;
}


1;

__END__