36 lines
669 B
Perl
36 lines
669 B
Perl
|
|
package Pod::Simple::Transcode;
|
|
|
|
use strict;
|
|
|
|
our @ISA;
|
|
|
|
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__
|
|
|
|
|