[Summary view] [Print] [Text view]

   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