K2LL33D SHELL

 Apache/2.4.7 (Ubuntu)
 Linux sman1baleendah 3.13.0-24-generic #46-Ubuntu SMP Thu Apr 10 19:11:08 UTC 2014 x86_64
 uid=33(www-data) gid=33(www-data) groups=33(www-data)
 safemode : OFF
 MySQL: ON | Perl: ON | cURL: OFF | WGet: ON
  >  / usr / share / perl / 5.18.2 / Pod / Simple / 		server ip : 104.21.89.46

your ip : 172.69.130.124

H O M E


Filename/usr/share/perl/5.18.2/Pod/Simple/Transcode.pm
Size699
Permissionrw-r--r--
Ownerroot : root
Create time27-Apr-2025 10:10
Last modified21-Nov-2018 01:11
Last accessed06-Jul-2025 21:18
Actionsedit | rename | delete | download (gzip)
Viewtext | code | image

require 5;
package Pod::Simple::Transcode;
use vars qw($VERSION );
$VERSION = '3.28';

BEGIN {
if(defined &DEBUG) {;} # Okay
elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; }
else { *DEBUG = sub () {0}; }
}

foreach my $class (
'Pod::Simple::TranscodeSmart',
'Pod::Simple::TranscodeDumb',
'',
) {
$class or die "Couldn't load any encoding classes";
DEBUG and print "About to try loading $class...\n";
eval "require $class;";
if($@) {
DEBUG and print "Couldn't load $class: $@\n";
} else {
DEBUG and print "OK, loaded $class.\n";
@ISA = ($class);
last;
}
}

sub _blorp { return; } # just to avoid any "empty class" warning

1;
__END__