[Summary view] [Print] [Text view]

   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