lib/Pod/Simple/TextContent.pm

   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