5 use if $] >= 5.011, 'deprecate';
7 our @ISA = qw(Pod::Parser);
10 our %E = qw( < lt > gt );
13 (undef, my $text) = @_;
14 $text =~ s/([<>])/E<$E{$1}>/g;
18 sub simple_delimiters {
19 (undef, my $seq) = @_;
20 $seq -> left_delimiter( '<' );
21 $seq -> right_delimiter( '>' );
26 my($parser,$text,$line) = @_;
27 print {$parser->output_handle()}
29 { -expand_text => q(escape_ltgt),
30 -expand_seq => q(simple_delimiters) },
31 $text, $line ) -> raw_text();
40 Pod::Plainer - Perl extension for converting Pod to old-style Pod.
46 my $parser = Pod::Plainer -> new ();
47 $parser -> parse_from_filehandle(\*STDIN);
51 Pod::Plainer uses Pod::Parser which takes Pod with the (new)
52 'CE<lt>E<lt> .. E<gt>E<gt>' constructs
53 and returns the old(er) style with just 'CE<lt>E<gt>';
54 '<' and '>' are replaced by 'EE<lt>ltE<gt>' and 'EE<lt>gtE<gt>'.
56 This can be used to pre-process Pod before using tools which do not
57 recognise the new style Pods.
65 Replace '<' and '>' by 'EE<lt>ltE<gt>' and 'EE<lt>gtE<gt>'.
67 =item simple_delimiters
69 Replace delimiters by 'E<lt>' and 'E<gt>'.
73 Redefine C<textblock> from L<Pod::Parser> to use C<escape_ltgt>
74 and C<simple_delimiters>.
84 Robin Barker, rmbarker@cpan.org
90 =head1 COPYRIGHT AND LICENSE
92 Copyright (C) 2009 by Robin Barker
94 This library is free software; you can redistribute it and/or modify
95 it under the same terms as Perl itself, either Perl version 5.10.1 or,
96 at your option, any later version of Perl 5 you may have available.
100 $Id: Plainer.pm 253 2010-02-11 16:28:10Z rmb1 $