move to Email::MIME, clean up test to use cmp_ok

[p5sagit/Email-Archive.git] / lib / Email / Archive / Storage / DBI.pm

diff --git a/lib/Email/Archive/Storage/DBI.pm b/lib/Email/Archive/Storage/DBI.pm
index 793eeed..9f6baa4 100644 (file)
--- a/lib/Email/Archive/Storage/DBI.pm
+++ b/lib/Email/Archive/Storage/DBI.pm
@@ -4,7 +4,7 @@ use Carp;
 use DBI;
 use File::ShareDir 'module_file';
 use File::Slurp 'read_file';
-use Email::Simple::Creator;
+use Email::MIME;
 use Email::Abstract;
 use SQL::Abstract;
 use autodie;
@@ -62,7 +62,7 @@ sub search {
   my $sth = $self->prepare($sql);
   $sth->execute(@bind);
   my ($message) = $sth->fetchrow_hashref;
-  return Email::Simple->create(
+  return Email::MIME->create(
     header => [
       From    => $message->{from_addr},
       To      => $message->{to_addr},