diff options
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/Pod/Simple/TranscodeSmart.pm')
-rwxr-xr-x | Master/tlpkg/tlperl.straw/lib/Pod/Simple/TranscodeSmart.pm | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/Pod/Simple/TranscodeSmart.pm b/Master/tlpkg/tlperl.straw/lib/Pod/Simple/TranscodeSmart.pm new file mode 100755 index 00000000000..d6dc62cbe82 --- /dev/null +++ b/Master/tlpkg/tlperl.straw/lib/Pod/Simple/TranscodeSmart.pm @@ -0,0 +1,44 @@ + +require 5; +use 5.008; +## Anything before 5.8.0 is GIMPY! +## This module is to be use()'d only by Pod::Simple::Transcode + +package Pod::Simple::TranscodeSmart; +use strict; +use Pod::Simple; +require Encode; +use vars qw($VERSION ); +$VERSION = '3.13'; + +sub is_dumb {0} +sub is_smart {1} + +sub all_encodings { + return Encode::->encodings(':all'); +} + +sub encoding_is_available { + return Encode::resolve_alias($_[1]); +} + +sub encmodver { + return "Encode.pm v" .($Encode::VERSION || '?'); +} + +sub make_transcoder { + my($e) = $_[1]; + die "WHAT ENCODING!?!?" unless $e; + my $x; + return sub { + foreach $x (@_) { + $x = Encode::decode($e, $x); + } + return; + }; +} + + +1; + + |