cpan/Pod-Simple/lib/Pod/Simple/Transcode.pm

   1
   2 require 5;
   3 package Pod::Simple::Transcode;
   4 use vars qw($VERSION );
   5 $VERSION = '3.16';
   6
   7 BEGIN {
   8   if(defined &DEBUG) {;} # Okay
   9   elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; }
  10   else { *DEBUG = sub () {0}; }
  11 }
  12
  13 foreach 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
  30 sub _blorp { return; } # just to avoid any "empty class" warning
  31
  32 1;
  33 __END__
  34
  35