Commit | Line | Data |
d23ed1f2 |
1 | package Pod::Plainer; |
2 | use strict; |
3 | use Pod::Parser; |
4 | our @ISA = qw(Pod::Parser); |
5 | our $VERSION = '0.01'; |
6 | |
7 | our %E = qw( < lt > gt ); |
8 | |
9 | sub escape_ltgt { |
10 | (undef, my $text) = @_; |
11 | $text =~ s/([<>])/E<$E{$1}>/g; |
12 | $text |
13 | } |
14 | |
15 | sub simple_delimiters { |
16 | (undef, my $seq) = @_; |
17 | $seq -> left_delimiter( '<' ); |
18 | $seq -> right_delimiter( '>' ); |
19 | $seq; |
20 | } |
21 | |
22 | sub textblock { |
23 | my($parser,$text,$line) = @_; |
24 | print {$parser->output_handle()} |
25 | $parser->parse_text( |
26 | { -expand_text => q(escape_ltgt), |
27 | -expand_seq => q(simple_delimiters) }, |
28 | $text, $line ) -> raw_text(); |
29 | } |
30 | |
31 | 1; |
32 | |
33 | __END__ |
34 | |
35 | =head1 NAME |
36 | |
37 | Pod::Plainer - Perl extension for converting Pod to old style Pod. |
38 | |
39 | =head1 SYNOPSIS |
40 | |
41 | use Pod::Plainer; |
42 | |
43 | my $parser = Pod::Plainer -> new (); |
44 | $parser -> parse_from_filehandle(\*STDIN); |
45 | |
46 | =head1 DESCRIPTION |
47 | |
48 | Pod::Plainer uses Pod::Parser which takes Pod with the (new) |
49 | 'CE<lt>E<lt> .. E<gt>E<gt>' constructs |
50 | and returns the old(er) style with just 'CE<lt>E<gt>'; |
51 | '<' and '>' are replaced by 'EE<lt>ltE<gt>' and 'EE<lt>gtE<gt>'. |
52 | |
53 | This can be used to pre-process Pod before using tools which do not |
54 | recognise the new style Pods. |
55 | |
56 | =head2 EXPORT |
57 | |
58 | None by default. |
59 | |
60 | =head1 AUTHOR |
61 | |
62 | Robin Barker, rmb1@cise.npl.co.uk |
63 | |
64 | =head1 SEE ALSO |
65 | |
66 | See L<Pod::Parser>. |
67 | |
68 | =cut |
69 | |