File Coverage

blib/lib/MIME/DecodeText.pm

Criterion	Covered	Total	%
statement	12	31	38.7
branch	0	4	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	1	0.0
total	16	42	38.1

package MIME::DecodeText;

use 5.006;
use strict;

use MIME::Base64;
use MIME::QuotedPrint;

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw(
	decode_text
);
our $VERSION = '0.01';



sub decode_text($) {
  my $s = shift;
  my $ret = '';
  local ($/) = undef;

  my @ar = split ' ', $s;
  foreach my $substr (@ar) {
    $ret .= __decode($substr);
  }

  return $ret;
}

sub __decode($) {
  my $s = shift;
  my $ret = $s;
  local ($/) = undef;

  $s =~ /=\?(.+)?\?(.)\?/;
  my ($encoding,$type) = ($1,$2);

  $s =~ s/=\?.+?\?$type\?(.*)\?=/$1/g;

  if		( $type eq 'q' ) {
    $s =~ s/_/ /g;
    $ret = decode_qp($s);
  } elsif	( $type eq 'B' ) {
    $ret = decode_base64($s);
  } else {
    $ret = "$s ";
  }

  return $ret;
}

1;
__END__