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