git.maemo.org Git - pkg-perl/blob - deb-src/libpod-simple-perl/libpod-simple-perl-3.07/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