git.maemo.org Git - pkg-perl/blob - deb-src/libpod-simple-perl/libpod-simple-perl-3.07/lib/Pod/Simple/TranscodeSmart.pm

   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