1use 5.008; 2## Anything before 5.8.0 is GIMPY! 3## This module is to be use()'d only by Pod::Simple::Transcode 4 5package Pod::Simple::TranscodeSmart; 6use strict; 7use warnings; 8use Pod::Simple; 9use Encode; 10our $VERSION = '3.45'; 11 12sub is_dumb {0} 13sub is_smart {1} 14 15sub all_encodings { 16 return Encode::->encodings(':all'); 17} 18 19sub encoding_is_available { 20 return Encode::resolve_alias($_[1]); 21} 22 23sub encmodver { 24 return "Encode.pm v" .($Encode::VERSION || '?'); 25} 26 27sub make_transcoder { 28 my $e = Encode::find_encoding($_[1]); 29 die "WHAT ENCODING!?!?" unless $e; 30 my $x; 31 return sub { 32 foreach $x (@_) { 33 $x = $e->decode($x) unless Encode::is_utf8($x); 34 } 35 return; 36 }; 37} 38 39 401; 41 42 43