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