[Summary view] [Print] [Text view]

   1  
   2  
   3  require 5;
   4  package Pod::Simple::TextContent;
   5  use strict;
   6  use Carp ();
   7  use Pod::Simple ();
   8  use vars qw( @ISA $VERSION );
   9  $VERSION = '2.02';
  10  @ISA = ('Pod::Simple');
  11  
  12  sub new {
  13    my $self = shift;
  14    my $new = $self->SUPER::new(@_);
  15    $new->{'output_fh'} ||= *STDOUT{IO};
  16    $new->nix_X_codes(1);
  17    return $new;
  18  }
  19  
  20  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  21  
  22  sub _handle_element_start {
  23    print {$_[0]{'output_fh'}} "\n"  unless $_[1] =~ m/^[A-Z]$/s;
  24    return;
  25  }
  26  
  27  sub _handle_text {
  28    if( chr(65) eq 'A' ) {     # in ASCIIworld
  29      $_[1] =~ tr/\xAD//d;
  30      $_[1] =~ tr/\xA0/ /;
  31    }
  32    print {$_[0]{'output_fh'}} $_[1];
  33    return;
  34  }
  35  
  36  sub _handle_element_end {
  37    print {$_[0]{'output_fh'}} "\n"  unless $_[1] =~ m/^[A-Z]$/s;
  38    return;
  39  }
  40  
  41  #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  42  1;
  43  
  44  
  45  __END__
  46  
  47  =head1 NAME
  48  
  49  Pod::Simple::TextContent -- get the text content of Pod
  50  
  51  =head1 SYNOPSIS
  52  
  53   TODO
  54  
  55    perl -MPod::Simple::TextContent -e \
  56     "exit Pod::Simple::TextContent->filter(shift)->any_errata_seen" \
  57     thingy.pod
  58  
  59  =head1 DESCRIPTION
  60  
  61  This class is that parses Pod and dumps just the text content.  It is
  62  mainly meant for use by the Pod::Simple test suite, but you may find
  63  some other use for it.
  64  
  65  This is a subclass of L<Pod::Simple> and inherits all its methods.
  66  
  67  =head1 SEE ALSO
  68  
  69  L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Spell>
  70  
  71  =head1 COPYRIGHT AND DISCLAIMERS
  72  
  73  Copyright (c) 2002 Sean M. Burke.  All rights reserved.
  74  
  75  This library is free software; you can redistribute it and/or modify it
  76  under the same terms as Perl itself.
  77  
  78  This program is distributed in the hope that it will be useful, but
  79  without any warranty; without even the implied warranty of
  80  merchantability or fitness for a particular purpose.
  81  
  82  =head1 AUTHOR
  83  
  84  Sean M. Burke C<sburke@cpan.org>
  85  
  86  =cut
  87