home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl / 5.10.0 / Pod / Simple / TranscodeSmart.pm < prev    next >
Encoding:
Text File  |  2009-06-26  |  631 b   |  43 lines
  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.  
  43.