FM / Perldoc

/usr/share/perl5/vendor_perl/Pod/Perldoc/

/usr/share/perl5/vendor_perl/Pod/Perldoc

Name	Size	Mode	Actions
BaseTo.pm	3637	0644	edit dl rm
GetOptsOO.pm	3888	0644	edit dl rm
ToANSI.pm	2303	0644	edit dl rm
ToChecker.pm	1691	0644	edit dl rm
ToMan.pm	14248	0644	edit dl rm
ToNroff.pm	2782	0644	edit dl rm
ToPod.pm	1959	0644	edit dl rm
ToRtf.pm	2149	0644	edit dl rm
ToTerm.pm	3816	0644	edit dl rm
ToText.pm	2266	0644	edit dl rm
ToTk.pm	4000	0644	edit dl rm
ToXml.pm	1407	0644	edit dl rm

Edit: /usr/share/perl5/vendor_perl/Pod/Perldoc/ToText.pm (2266B)

package Pod::Perldoc::ToText;
use strict;
use warnings;

use vars qw($VERSION);
$VERSION = '3.28';

use parent qw(Pod::Perldoc::BaseTo);

sub is_pageable        { 1 }
sub write_with_binmode { 0 }
sub output_extension   { 'txt' }

use Pod::Text ();

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] }

sub parse_from_file {
  my $self = shift;

my @options =
    map {; $_, $self->{$_} }
      grep !m/^_/s,
        keys %$self
  ;

defined(&Pod::Perldoc::DEBUG)
   and Pod::Perldoc::DEBUG()
   and print "About to call new Pod::Text ",
    $Pod::Text::VERSION ? "(v$Pod::Text::VERSION) " : '',
    "with options: ",
    @options ? "[@options]" : "(nil)", "\n";
  ;

Pod::Text->new(@options)->parse_from_file(@_);
}

=head1 NAME

Pod::Perldoc::ToText - let Perldoc render Pod as plaintext

=head1 SYNOPSIS

perldoc -o text Some::Modulename

=head1 DESCRIPTION

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

For example:

perldoc -o text -w indent:5 Some::Modulename

=head1 CAVEAT

This module may change to use a different text formatter class in the
future, and this may change what options are supported.

=head1 SEE ALSO

L<Pod::Text>, L<Pod::Perldoc>

=head1 COPYRIGHT AND DISCLAIMERS

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

Current maintainer: Mark Allen C<< <mallen@cpan.org> >>

Past contributions from:
brian d foy C<< <bdfoy@cpan.org> >>
Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
Sean M. Burke C<< <sburke@cpan.org> >>

=cut

cmd: