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=e7f5257b23e15c602c4b5d7ad5512bfe8c333196;hb=588540027335bae196e7c8c5c54a5c740b505073;hp=a27196f6e8797c68a9ad66420de96dd0eac018c4;hpb=c5f5125c9dc29dbbf1d42ccadc17e9c6215fd8b3;p=p5sagit%2FEmail-Archive.git

diff --git a/lib/Email/Archive.pm b/lib/Email/Archive.pm
index a27196f..e7f5257 100644
--- a/lib/Email/Archive.pm
+++ b/lib/Email/Archive.pm
@@ -5,11 +5,11 @@ use Email::Archive::Storage::DBI;
 has storage => (
   is    => 'rw',
   does  => 'Email::Archive::Storage',
-  handles     => [qw/
-    store
-    retrieve
-    search
-  /],
+  handles     => {
+    store    => 'store',
+    retrieve => 'retrieve',
+    connect  => 'storage_connect',
+  },
   lazy  => 1,
   default => sub { Email::Archive::Storage::DBI->new }
 );