more redesign

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

diff --git a/lib/Email/Archive.pm b/lib/Email/Archive.pm
index a27196f..e7f5257 100644 (file)
--- 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 }
 );