4 package Pod::Simple::TextContent;
8 use vars qw( @ISA $VERSION );
10 @ISA = ('Pod::Simple');
14 my $new = $self->SUPER::new(@_);
15 $new->{'output_fh'} ||= *STDOUT{IO};
20 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
22 sub _handle_element_start {
23 print {$_[0]{'output_fh'}} "\n" unless $_[1] =~ m/^[A-Z]$/s;
28 if( chr(65) eq 'A' ) { # in ASCIIworld
32 print {$_[0]{'output_fh'}} $_[1];
36 sub _handle_element_end {
37 print {$_[0]{'output_fh'}} "\n" unless $_[1] =~ m/^[A-Z]$/s;
41 #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
49 Pod::Simple::TextContent -- get the text content of Pod
55 perl -MPod::Simple::TextContent -e \
56 "exit Pod::Simple::TextContent->filter(shift)->any_errata_seen" \
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.
65 This is a subclass of L<Pod::Simple> and inherits all its methods.
69 L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Spell>
71 =head1 COPYRIGHT AND DISCLAIMERS
73 Copyright (c) 2002 Sean M. Burke. All rights reserved.
75 This library is free software; you can redistribute it and/or modify it
76 under the same terms as Perl itself.
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.
84 Sean M. Burke C<sburke@cpan.org>