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