2eb9e0644ac9efa68f5aaa3b60d2267a1d47efdb
package Pod
::Perldoc
::ToText
;
use base
qw(Pod::Perldoc::BaseTo);
sub write_with_binmode
{ 0 }
sub output_extension
{ 'txt' }
sub alt
{ shift->_perldoc_elem('alt' , @_) }
sub indent
{ shift->_perldoc_elem('indent' , @_) }
sub loose
{ shift->_perldoc_elem('loose' , @_) }
sub quotes
{ shift->_perldoc_elem('quotes' , @_) }
sub sentence
{ shift->_perldoc_elem('sentence', @_) }
sub width
{ shift->_perldoc_elem('width' , @_) }
sub new
{ return bless {}, ref($_[0]) || $_[0] }
defined(&Pod
::Perldoc
::DEBUG
)
and Pod
::Perldoc
::DEBUG
()
and print "About to call new Pod::Text ",
$Pod::Text
::VERSION ?
"(v$Pod::Text::VERSION) " : '',
@options ?
"[@options]" : "(nil)", "\n";
Pod
::Text
->new(@options)->parse_from_file(@_);
Pod::Perldoc::ToText - let Perldoc render Pod as plaintext
perldoc -o text Some::Modulename
This is a "plug-in" class that allows Perldoc to use
Pod::Text as a formatter class.
It supports the following options, which are explained in
L<Pod::Text>: alt, indent, loose, quotes, sentence, width
perldoc -o text -w indent:5 Some::Modulename
This module may change to use a different text formatter class in the
future, and this may change what options are supported.
L<Pod::Text>, L<Pod::Perldoc>
=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.
Sean M. Burke C<sburke@cpan.org>