Hackfut Security File Manager
Current Path:
/usr/share/perl5/Pod/Simple
usr
/
share
/
perl5
/
Pod
/
Simple
/
📁
..
📄
BlackBox.pm
(62.16 KB)
📄
Checker.pm
(5.24 KB)
📄
Debug.pm
(4.5 KB)
📄
DumpAsText.pm
(3.88 KB)
📄
DumpAsXML.pm
(4.47 KB)
📄
HTML.pm
(28.41 KB)
📄
HTMLBatch.pm
(39.65 KB)
📄
HTMLLegacy.pm
(2.69 KB)
📄
LinkSection.pm
(4.24 KB)
📄
Methody.pm
(3.48 KB)
📄
Progress.pm
(2.36 KB)
📄
PullParser.pm
(24.32 KB)
📄
PullParserEndToken.pm
(2.81 KB)
📄
PullParserStartToken.pm
(4.04 KB)
📄
PullParserTextToken.pm
(3.09 KB)
📄
PullParserToken.pm
(3.9 KB)
📄
RTF.pm
(21.14 KB)
📄
Search.pm
(32.51 KB)
📄
SimpleTree.pm
(4.48 KB)
📄
Subclassing.pod
(27.85 KB)
📄
Text.pm
(5.01 KB)
📄
TextContent.pm
(2.48 KB)
📄
TiedOutFH.pm
(2.67 KB)
📄
Transcode.pm
(699 B)
📄
TranscodeDumb.pm
(1.16 KB)
📄
TranscodeSmart.pm
(674 B)
📄
XHTML.pm
(20.06 KB)
📄
XMLOutStream.pm
(4.82 KB)
Editing: TranscodeDumb.pm
require 5; ## This module is to be use()'d only by Pod::Simple::Transcode package Pod::Simple::TranscodeDumb; use strict; use vars qw($VERSION %Supported); $VERSION = '3.13'; # This module basically pretends it knows how to transcode, except # only for null-transcodings! We use this when Encode isn't # available. %Supported = ( 'ascii' => 1, 'ascii-ctrl' => 1, 'iso-8859-1' => 1, 'null' => 1, 'latin1' => 1, 'latin-1' => 1, %Supported, ); sub is_dumb {1} sub is_smart {0} sub all_encodings { return sort keys %Supported; } sub encoding_is_available { return exists $Supported{lc $_[1]}; } sub encmodver { return __PACKAGE__ . " v" .($VERSION || '?'); } sub make_transcoder { my($e) = $_[1]; die "WHAT ENCODING!?!?" unless $e; my $x; return sub {; #foreach $x (@_) { # if(Pod::Simple::ASCII and !Pod::Simple::UNICODE and $] > 5.005) { # # We're in horrible gimp territory, so we need to knock out # # all the highbit things # $x = # pack 'C*', # map {; ($_ < 128) ? $_ : 0x7e } # unpack "C*", # $x # ; # } #} # #return; }; } 1;
Upload File
Create Folder