more redesign

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

diff --git a/lib/Email/Archive/Storage/DBI.pm b/lib/Email/Archive/Storage/DBI.pm
index 72546fd..793eeed 100644 (file)
--- a/lib/Email/Archive/Storage/DBI.pm
+++ b/lib/Email/Archive/Storage/DBI.pm
@@ -93,7 +93,7 @@ sub _deployed {
   }
 }
 
-sub db_connect {
+sub storage_connect {
   my ($self, $dsn) = @_;
   $self->dbh(DBI->connect($dsn));
   if(!$self->_deployed) {