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

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

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

1;
Commit	Line	Data
8581da38	1	package Email::Archive;
8581da38	2	use Moose;
c5f5125c	3	use Email::Archive::Storage::DBI;
8581da38	4
	5	has storage => (
	6	is => 'rw',
	7	does => 'Email::Archive::Storage',
	8	handles => [qw/
	9	store
	10	retrieve
	11	search
	12	/],
c5f5125c	13	lazy => 1,
c5f5125c	14	default => sub { Email::Archive::Storage::DBI->new }
8581da38	15	);
8581da38	16
8581da38	17	1;