home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / Transcode.pm < prev    next >
Encoding:
Text File  |  2003-09-01  |  656 b   |  34 lines
  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.  
  34.