File Coverage

blib/lib/Pod/Tree/HTML/PerlTop.pm

Criterion	Covered	Total	%
statement	11	26	42.3
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	1	0.0
total	15	35	42.8

package Pod::Tree::HTML::PerlTop;
use 5.006;
use strict;
use warnings;

use base qw(Pod::Tree::HTML);

our $VERSION = '1.31';

sub set_links {
	my ( $html, $links ) = @_;
	$html->{links} = $links;
}

sub _emit_verbatim {
	my ( $html, $node ) = @_;
	my $stream = $html->{stream};
	my $links  = $html->{links};
	my $text   = $node->get_text;

	$text =~ s( \n\n$ )()x;
	my @words = split m/(\s+)/, $text;

	$stream->PRE;

	for my $word (@words) {
		if ( $links->{$word} ) {
			my $link = $links->{$word};
			$stream->A( HREF => "$link.html" )->text($word)->_A;
		}
		else {
			$stream->text($word);
		}
	}

	$stream->_PRE;
}

1;