summaryrefslogtreecommitdiffstats
path: root/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Simple/TextContent.pm
diff options
context:
space:
mode:
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Simple/TextContent.pm')
-rw-r--r--chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Simple/TextContent.pm87
1 files changed, 0 insertions, 87 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Simple/TextContent.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Simple/TextContent.pm
deleted file mode 100644
index 3675b005ef1..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Simple/TextContent.pm
+++ /dev/null
@@ -1,87 +0,0 @@
-
-
-require 5;
-package Pod::Simple::TextContent;
-use strict;
-use Carp ();
-use Pod::Simple ();
-use vars qw( @ISA $VERSION );
-$VERSION = '2.02';
-@ISA = ('Pod::Simple');
-
-sub new {
- my $self = shift;
- my $new = $self->SUPER::new(@_);
- $new->{'output_fh'} ||= *STDOUT{IO};
- $new->nix_X_codes(1);
- return $new;
-}
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-sub _handle_element_start {
- print {$_[0]{'output_fh'}} "\n" unless $_[1] =~ m/^[A-Z]$/s;
- return;
-}
-
-sub _handle_text {
- if( chr(65) eq 'A' ) { # in ASCIIworld
- $_[1] =~ tr/\xAD//d;
- $_[1] =~ tr/\xA0/ /;
- }
- print {$_[0]{'output_fh'}} $_[1];
- return;
-}
-
-sub _handle_element_end {
- print {$_[0]{'output_fh'}} "\n" unless $_[1] =~ m/^[A-Z]$/s;
- return;
-}
-
-#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-1;
-
-
-__END__
-
-=head1 NAME
-
-Pod::Simple::TextContent -- get the text content of Pod
-
-=head1 SYNOPSIS
-
- TODO
-
- perl -MPod::Simple::TextContent -e \
- "exit Pod::Simple::TextContent->filter(shift)->any_errata_seen" \
- thingy.pod
-
-=head1 DESCRIPTION
-
-This class is that parses Pod and dumps just the text content. It is
-mainly meant for use by the Pod::Simple test suite, but you may find
-some other use for it.
-
-This is a subclass of L<Pod::Simple> and inherits all its methods.
-
-=head1 SEE ALSO
-
-L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Spell>
-
-=head1 COPYRIGHT AND DISCLAIMERS
-
-Copyright (c) 2002 Sean M. Burke. All rights reserved.
-
-This library is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-This program is distributed in the hope that it will be useful, but
-without any warranty; without even the implied warranty of
-merchantability or fitness for a particular purpose.
-
-=head1 AUTHOR
-
-Sean M. Burke C<sburke@cpan.org>
-
-=cut
-