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     => [qw/
   9     store
  10     retrieve
  11     search
  12   /],
  13   lazy  => 1,
  14   default => sub { Email::Archive::Storage::DBI->new }
  15 );
  16
  17 1;