diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm b/Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm new file mode 100755 index 00000000000..80f9f1c1be6 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm @@ -0,0 +1,35 @@ + +require 5; +package Pod::Simple::Transcode; +use vars qw($VERSION ); +$VERSION = '3.13'; + +BEGIN { + if(defined &DEBUG) {;} # Okay + elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; } + else { *DEBUG = sub () {0}; } +} + +foreach my $class ( + 'Pod::Simple::TranscodeSmart', + 'Pod::Simple::TranscodeDumb', + '', +) { + $class or die "Couldn't load any encoding classes"; + DEBUG and print "About to try loading $class...\n"; + eval "require $class;"; + if($@) { + DEBUG and print "Couldn't load $class: $@\n"; + } else { + DEBUG and print "OK, loaded $class.\n"; + @ISA = ($class); + last; + } +} + +sub _blorp { return; } # just to avoid any "empty class" warning + +1; +__END__ + + |