diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-08-30 20:21:24 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-08-31 10:54:51 +0100 |
commit | f8f971fecc9a99f6dcac04f4210ad42f133236da (patch) | |
tree | 3874d52fe2370205a7943b349c27209dc16e6100 /lib/Pod | |
parent | 712a6fe4fb139f1c518fb623daee8d29859070fe (diff) | |
download | perl-f8f971fecc9a99f6dcac04f4210ad42f133236da.tar.gz |
Move Pod::Plainer from lib to ext
We can probably deprecate this from core. It seems to have been written to
"shore up pod2latex shortcomings" (d23ed1f2ad4fab0a) in March 2000, and 3
months later that was replaced with the Pod::LaTex on CPAN (076c2fc018b685ea),
so nothing in core uses it.
Diffstat (limited to 'lib/Pod')
-rw-r--r-- | lib/Pod/Plainer.pm | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/lib/Pod/Plainer.pm b/lib/Pod/Plainer.pm deleted file mode 100644 index 373e8d090a..0000000000 --- a/lib/Pod/Plainer.pm +++ /dev/null @@ -1,69 +0,0 @@ -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 - |