lib/Email/Archive.pm

   1 package Email::Archive;
   2 use Moose;
   3 use Email::Archive::Storage::DBI;
   4
   5 has storage => (
   6   is    => 'rw',
   7   does  => 'Email::Archive::Storage',
   8   handles     => {
   9     store    => 'store',
  10     retrieve => 'retrieve',
  11     connect  => 'storage_connect',
  12   },
  13   lazy  => 1,
  14   default => sub { Email::Archive::Storage::DBI->new }
  15 );
  16
  17 1;