X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FEmail%2FArchive.pm;fp=lib%2FEmail%2FArchive.pm;h=a27196f6e8797c68a9ad66420de96dd0eac018c4;hb=c5f5125c9dc29dbbf1d42ccadc17e9c6215fd8b3;hp=83d86d1a2922a3d3528da98867b6e85c13527b84;hpb=76abf5cadc364d74296210940dfcc8497cd46d4d;p=p5sagit%2FEmail-Archive.git

diff --git a/lib/Email/Archive.pm b/lib/Email/Archive.pm
index 83d86d1..a27196f 100644
--- a/lib/Email/Archive.pm
+++ b/lib/Email/Archive.pm
@@ -1,6 +1,6 @@
 package Email::Archive;
 use Moose;
-use Module::Load;
+use Email::Archive::Storage::DBI;
 
 has storage => (
   is    => 'rw',
@@ -10,26 +10,8 @@ has storage => (
     retrieve
     search
   /],
-  lazy_build  => 1,
+  lazy  => 1,
+  default => sub { Email::Archive::Storage::DBI->new }
 );
 
-has dsn => (
-  is  => 'ro',
-  isa => 'Str',
-  required => 1,
-);
-
-has storage_class => (
-  is  => 'ro',
-  isa => 'Str',
-  required => 1,
-  default  => 'Email::Archive::Storage::DBI',
-);
-
-sub _build_storage {
-  my ($self) = @_;
-  load $self->storage_class;
-  my $storage = $self->storage_class->new(dsn => $self->dsn);
-}
-
 1;