Linux unitednationsplay.com 3.10.0-1160.45.1.el7.x86_64 #1 SMP Wed Oct 13 17:20:51 UTC 2021 x86_64
nginx/1.20.1
Server IP : 188.130.139.92 & Your IP : 18.188.161.182
Domains :
Cant Read [ /etc/named.conf ]
User : web
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
perl5 /
vendor_perl /
Pod /
Perldoc /
Delete
Unzip
Name
Size
Permission
Date
Action
BaseTo.pm
3.4
KB
-rw-r--r--
2013-04-27 05:33
GetOptsOO.pm
3.8
KB
-rw-r--r--
2013-04-27 05:33
ToANSI.pm
2.25
KB
-rw-r--r--
2013-04-27 05:33
ToChecker.pm
1.65
KB
-rw-r--r--
2013-04-27 05:33
ToMan.pm
14.5
KB
-rw-r--r--
2013-04-27 05:33
ToNroff.pm
2.72
KB
-rw-r--r--
2013-04-27 05:34
ToPod.pm
1.91
KB
-rw-r--r--
2013-04-27 05:34
ToRtf.pm
2.1
KB
-rw-r--r--
2013-04-27 05:34
ToTerm.pm
2.04
KB
-rw-r--r--
2013-04-27 05:34
ToText.pm
2.21
KB
-rw-r--r--
2013-04-27 05:34
ToTk.pm
3.91
KB
-rw-r--r--
2013-04-27 05:34
ToXml.pm
1.37
KB
-rw-r--r--
2013-04-27 05:34
Save
Rename
package Pod::Perldoc::ToPod; use strict; use warnings; use parent qw(Pod::Perldoc::BaseTo); use vars qw($VERSION); $VERSION = '3.20'; sub is_pageable { 1 } sub write_with_binmode { 0 } sub output_extension { 'pod' } sub new { return bless {}, ref($_[0]) || $_[0] } sub parse_from_file { my( $self, $in, $outfh ) = @_; open(IN, "<", $in) or $self->die( "Can't read-open $in: $!\nAborting" ); my $cut_mode = 1; # A hack for finding things between =foo and =cut, inclusive local $_; while (<IN>) { if( m/^=(\w+)/s ) { if($cut_mode = ($1 eq 'cut')) { print $outfh "\n=cut\n\n"; # Pass thru the =cut line with some harmless # (and occasionally helpful) padding } } next if $cut_mode; print $outfh $_ or $self->die( "Can't print to $outfh: $!" ); } close IN or $self->die( "Can't close $in: $!" ); return; } 1; __END__ =head1 NAME Pod::Perldoc::ToPod - let Perldoc render Pod as ... Pod! =head1 SYNOPSIS perldoc -opod Some::Modulename (That's currently the same as the following:) perldoc -u Some::Modulename =head1 DESCRIPTION This is a "plug-in" class that allows Perldoc to display Pod source as itself! Pretty Zen, huh? Currently this class works by just filtering out the non-Pod stuff from a given input file. =head1 SEE ALSO 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. =head1 AUTHOR Current maintainer: Mark Allen C<< <mallencpan.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