our @ISA = qw(Pod::Parser);
our %E = qw( < lt > gt );
$text =~ s/([<>])/E<$E{$1}>/g;
$seq -> left_delimiter
( '<' );
$seq -> right_delimiter
( '>' );
my($parser,$text,$line) = @_;
print {$parser->output_handle()}
{ -expand_text
=> q
(escape_ltgt
),
-expand_seq
=> q
(simple_delimiters
) },
$text, $line ) -> raw_text
();
Pod::Plainer - Perl extension for converting Pod to old style Pod.
my $parser = Pod::Plainer -> new ();
$parser -> parse_from_filehandle(\*STDIN);
Pod::Plainer uses Pod::Parser which takes Pod with the (new)
'CE<lt>E<lt> .. E<gt>E<gt>' constructs
and returns the old(er) style with just 'CE<lt>E<gt>';
'<' and '>' are replaced by 'EE<lt>ltE<gt>' and 'EE<lt>gtE<gt>'.
This can be used to pre-process Pod before using tools which do not
recognise the new style Pods.
Robin Barker, rmb1@cise.npl.co.uk