Current Path :
/
usr
/
share
/
perl5
/
Pod
/
Simple
/
Or
Select Your Path :
Upload File :
New :
File
Dir
//usr/share/perl5/Pod/Simple/Transcode.pm
require 5; package Pod::Simple::Transcode; use vars qw($VERSION ); $VERSION = '3.13'; 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__
