Commit | Line | Data |
8581da38 |
1 | package Email::Archive; |
8a5453ad |
2 | use Moo; |
c5f5125c |
3 | use Email::Archive::Storage::DBI; |
8581da38 |
4 | |
5e15a8a0 |
5 | our $VERSION = '0.02'; |
6 | |
8581da38 |
7 | has storage => ( |
8 | is => 'rw', |
9 | does => 'Email::Archive::Storage', |
58854002 |
10 | handles => { |
11 | store => 'store', |
12 | retrieve => 'retrieve', |
13 | connect => 'storage_connect', |
14 | }, |
c5f5125c |
15 | lazy => 1, |
16 | default => sub { Email::Archive::Storage::DBI->new } |
8581da38 |
17 | ); |
18 | |
8581da38 |
19 | 1; |
5e15a8a0 |
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>. |