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