1 2require 5; 3package Pod::Simple::Transcode; 4use vars qw($VERSION ); 5$VERSION = '3.14'; 6 7BEGIN { 8 if(defined &DEBUG) {;} # Okay 9 elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; } 10 else { *DEBUG = sub () {0}; } 11} 12 13foreach my $class ( 14 'Pod::Simple::TranscodeSmart', 15 'Pod::Simple::TranscodeDumb', 16 '', 17) { 18 $class or die "Couldn't load any encoding classes"; 19 DEBUG and print "About to try loading $class...\n"; 20 eval "require $class;"; 21 if($@) { 22 DEBUG and print "Couldn't load $class: $@\n"; 23 } else { 24 DEBUG and print "OK, loaded $class.\n"; 25 @ISA = ($class); 26 last; 27 } 28} 29 30sub _blorp { return; } # just to avoid any "empty class" warning 31 321; 33__END__ 34 35 36