3 package Pod::Simple::Transcode;
6 if(defined &DEBUG) {;} # Okay
7 elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; }
8 else { *DEBUG = sub () {0}; }
12 'Pod::Simple::TranscodeSmart',
13 'Pod::Simple::TranscodeDumb',
16 $class or die "Couldn't load any encoding classes";
17 DEBUG and print "About to try loading $class...\n";
18 eval "require $class;";
20 DEBUG and print "Couldn't load $class: $@\n";
22 DEBUG and print "OK, loaded $class.\n";
28 sub _blorp { return; } # just to avoid any "empty class" warning