Commit | Line | Data |
---|---|---|
920dae64 AT |
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 |