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