Commit | Line | Data |
351625bd |
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 | |