cpan/Pod-Simple/lib/Pod/Simple/TranscodeDumb.pm

   1
   2 require 5;
   3 ## This module is to be use()'d only by Pod::Simple::Transcode
   4
   5 package Pod::Simple::TranscodeDumb;
   6 use strict;
   7 use vars qw($VERSION %Supported);
   8 $VERSION = '3.26';
   9 # This module basically pretends it knows how to transcode, except
  10 #  only for null-transcodings!  We use this when Encode isn't
  11 #  available.
  12
  13 %Supported = (
  14   'ascii'       => 1,
  15   'ascii-ctrl'  => 1,
  16   'iso-8859-1'  => 1,
  17   'null'        => 1,
  18   'latin1'      => 1,
  19   'latin-1'     => 1,
  20   %Supported,
  21 );
  22
  23 sub is_dumb  {1}
  24 sub is_smart {0}
  25
  26 sub all_encodings {
  27   return sort keys %Supported;
  28 }
  29
  30 sub encoding_is_available {
  31   return exists $Supported{lc $_[1]};
  32 }
  33
  34 sub encmodver {
  35   return __PACKAGE__ . " v" .($VERSION || '?');
  36 }
  37
  38 sub make_transcoder {
  39   my($e) = $_[1];
  40   die "WHAT ENCODING!?!?" unless $e;
  41   my $x;
  42   return sub {;
  43     #foreach $x (@_) {
  44     #  if(Pod::Simple::ASCII and !Pod::Simple::UNICODE and $] > 5.005) {
  45     #    # We're in horrible gimp territory, so we need to knock out
  46     #    # all the highbit things
  47     #    $x =
  48     #      pack 'C*',
  49     #      map {; ($_ < 128) ? $_ : 0x7e }
  50     #      unpack "C*",
  51     #      $x
  52     #    ;
  53     #  }
  54     #}
  55     #
  56     #return;
  57   };
  58 }
  59
  60
  61 1;
  62
  63