File Coverage

blib/lib/Pod/Plainer.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	32	32	100.0

package Pod::Plainer;
use 5.006;
use strict;
use warnings;
use Pod::Parser;
our @ISA = qw(Pod::Parser);
our $VERSION = '1.04';

our %E = qw( < lt > gt );

sub escape_ltgt {
    (undef, my $text) = @_;
    $text =~ s/([<>])/E<$E{$1}>/g;
    $text
}

sub simple_delimiters {
    (undef, my $seq) = @_;
    $seq -> left_delimiter( '<' );
    $seq -> right_delimiter( '>' );
    $seq;
}

sub textblock {
    my($parser,$text,$line) = @_;
    print {$parser->output_handle()}
	$parser->parse_text(
	    { -expand_text => q(escape_ltgt),
	      -expand_seq => q(simple_delimiters) },
	    $text, $line ) -> raw_text();
}

1;

__END__