lib/Email/Archive.pm

   1 package Email::Archive;
   2 use Moo;
   3 use Email::Archive::Storage::DBI;
   4
   5 our $VERSION = '0.02';
   6
   7 has storage => (
   8   is    => 'rw',
   9   does  => 'Email::Archive::Storage',
  10   handles     => {
  11     store    => 'store',
  12     retrieve => 'retrieve',
  13     connect  => 'storage_connect',
  14   },
  15   lazy  => 1,
  16   default => sub { Email::Archive::Storage::DBI->new }
  17 );
  18
  19 1;
  20
  21
  22 __END__
  23
  24 =head1 NAME
  25
  26 Email::Archive - write emails to a database, fetch them
  27
  28 =head1 WARNING!
  29
  30 I only uploaded this to get it out there and kick myself into making it more
  31 useful. As you can see it's not documented or tested yet. I put this together
  32 mostly in one evening in a coffeeshop. It shows in some ways. caveat programmer.
  33
  34 =head1 LICENSE
  35
  36 This library may be used under the same terms as Perl itself.
  37
  38 =head1 AUTHOR AND COPYRIGHT
  39
  40 Copyright (c) 2010, 2011 Chris Nehren C<apeiron@cpan.org>.