File Coverage

lib/PPI/Transform/Doxygen/POD.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	5	5	100.0
total	46	46	100.0

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

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

our $VERSION = '0.1';

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;
    $name =~ 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;
    $name =~ s/\s/_/g;
    return "\n\@subsection $name $title\n" . $head2->content->present($self);
}

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

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

my %HTML = ( '&' => '&', '<' => '<', '>' => '>');
sub _unquote {
    $_[0] =~ s!\Q$_!$HTML{$_}!g for keys %HTML;
    $_[0] =~ s!\\(\@|\\|\%|#)!$1!g;
}


1;

__END__