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

package Email::Archive;
use Moo;
use Email::Archive::Storage::DBI;

our $VERSION = '0.02';

has storage => (
  is    => 'rw',
  does  => 'Email::Archive::Storage',
  handles     => {
    store    => 'store',
    retrieve => 'retrieve',
    connect  => 'storage_connect',
  },
  lazy  => 1,
  default => sub { Email::Archive::Storage::DBI->new }
);

1;


__END__ 

=head1 NAME

Email::Archive - write emails to a database, fetch them

=head1 WARNING!

I only uploaded this to get it out there and kick myself into making it more
useful. As you can see it's not documented or tested yet. I put this together
mostly in one evening in a coffeeshop. It shows in some ways. caveat programmer.

=head1 LICENSE

This library may be used under the same terms as Perl itself.

=head1 AUTHOR AND COPYRIGHT

Copyright (c) 2010, 2011 Chris Nehren C<apeiron@cpan.org>.
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';
5e15a8a0	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,
c5f5125c	16	default => sub { Email::Archive::Storage::DBI->new }
8581da38	17	);
8581da38	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>.