[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     => {
    store    => 'store',
    retrieve => 'retrieve',
    connect  => 'storage_connect',
  },
  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',
58854002	8	handles => {
	9	store => 'store',
	10	retrieve => 'retrieve',
	11	connect => 'storage_connect',
	12	},
c5f5125c	13	lazy => 1,
c5f5125c	14	default => sub { Email::Archive::Storage::DBI->new }
8581da38	15	);
8581da38	16
8581da38	17	1;