view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/Email/Outlook/Message/Base.pm
MANIFEST			This list of files
META.json
META.yml
README
script/msgconvert
t/basics.t
t/charset.t
t/files/charset.eml
t/files/charset.msg
t/files/gpg_signed.eml
t/files/gpg_signed.msg
t/files/plain_jpeg_attached.eml
t/files/plain_jpeg_attached.msg
t/files/plain_uc_unsent.eml
t/files/plain_uc_unsent.msg
t/files/plain_uc_wc_unsent.eml
t/files/plain_uc_wc_unsent.msg
t/files/plain_unsent.eml
t/files/plain_unsent.msg
t/full_structure.t
t/gpg_signed.t
t/internals.t
t/plain_jpeg_attached.t
t/plain_uc_unsent.t
t/plain_uc_wc_unsent.t
t/plain_unsent.t
t/pod_coverage.t
TODO
Makefile.PL

TODO  view on Meta::CPAN

TODO
- Process applefiles (using Mac::AppleSingleDouble?)
- Process gpg-signed mail properly.
- Create interface to internal properties.
- Allow an output file to be specified on the command line
- Make use of more of the items, if possible.
- Create more test files
- UTF8 text bodies should set encoding = UTF8

t/gpg_signed.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => 2;
use Email::Outlook::Message;

my $p = new Email::Outlook::Message('t/files/gpg_signed.msg');
ok($p, "Parsing succeeded");
TODO: {
  local $TODO = "GPG Parsing doesn't work yet";
  my $m = $p->to_email_mime;
  like($m->content_type, qr{^multipart/signed},
    "Content type should be multipart/signed");
}