home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _b030a25373aa7ef64296db3abdaf0afc < prev    next >
Encoding:
Text File  |  2000-03-15  |  1.3 KB  |  70 lines
  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.  
  70.