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