3 use if $] >= 5.011, 'deprecate';
5 our @ISA = qw(Pod::Parser);
8 our %E = qw( < lt > gt );
11 (undef, my $text) = @_;
12 $text =~ s/([<>])/E<$E{$1}>/g;
16 sub simple_delimiters {
17 (undef, my $seq) = @_;
18 $seq -> left_delimiter( '<' );
19 $seq -> right_delimiter( '>' );
24 my($parser,$text,$line) = @_;
25 print {$parser->output_handle()}
27 { -expand_text => q(escape_ltgt),
28 -expand_seq => q(simple_delimiters) },
29 $text, $line ) -> raw_text();
38 Pod::Plainer - Perl extension for converting Pod to old-style Pod.
44 my $parser = Pod::Plainer -> new ();
45 $parser -> parse_from_filehandle(\*STDIN);
49 Pod::Plainer uses Pod::Parser which takes Pod with the (new)
50 'CE<lt>E<lt> .. E<gt>E<gt>' constructs
51 and returns the old(er) style with just 'CE<lt>E<gt>';
52 '<' and '>' are replaced by 'EE<lt>ltE<gt>' and 'EE<lt>gtE<gt>'.
54 This can be used to pre-process Pod before using tools which do not
55 recognise the new style Pods.
63 Robin Barker, rmb1@npl.co.uk