1b39c5158Smillertpackage Pod::Simple::Transcode; 2b8851fccSafresh1use strict; 3*3d61058aSafresh1our $VERSION = '3.45'; 4b39c5158Smillert 5b39c5158SmillertBEGIN { 6b39c5158Smillert if(defined &DEBUG) {;} # Okay 7b39c5158Smillert elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; } 8b39c5158Smillert else { *DEBUG = sub () {0}; } 9b39c5158Smillert} 10b39c5158Smillert 11*3d61058aSafresh1our @ISA; 12b39c5158Smillertforeach my $class ( 13b39c5158Smillert 'Pod::Simple::TranscodeSmart', 14b39c5158Smillert 'Pod::Simple::TranscodeDumb', 15b39c5158Smillert '', 16b39c5158Smillert) { 17b39c5158Smillert $class or die "Couldn't load any encoding classes"; 18b8851fccSafresh1 DEBUG and print STDERR "About to try loading $class...\n"; 19b39c5158Smillert eval "require $class;"; 20b39c5158Smillert if($@) { 21b8851fccSafresh1 DEBUG and print STDERR "Couldn't load $class: $@\n"; 22b39c5158Smillert } else { 23b8851fccSafresh1 DEBUG and print STDERR "OK, loaded $class.\n"; 24b39c5158Smillert @ISA = ($class); 25b39c5158Smillert last; 26b39c5158Smillert } 27b39c5158Smillert} 28b39c5158Smillert 29b39c5158Smillertsub _blorp { return; } # just to avoid any "empty class" warning 30b39c5158Smillert 31b39c5158Smillert1; 32b39c5158Smillert__END__ 33b39c5158Smillert 34b39c5158Smillert 35