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

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