[Summary view] [Print] [Text view]

   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