Changeset 29187

Timestamp:

01/28/09 23:07:53 (4 years ago)

Author:

nekokak

Message:

add reconnect method.

Location:

lang/perl/DBIx-Skinny/trunk

Files:

• lib/DBIx/Skinny.pm (modified) (3 diffs)
• t/205_reconnect.t (added)

lang/perl/DBIx-Skinny/trunk/lib/DBIx/Skinny.pm

@@ -43 +43 @@
         my @functions = qw/
             schema profiler
-            dbh dbd _connect connect_info _dbd_type
+            dbh dbd _connect connect_info _dbd_type reconnect
             call_schema_trigger
             do resultset search single search_by_sql search_named count
@@ -86 +86 @@
 sub _connect {
     my $class = shift;
+    $class->attribute->{dbh} = undef if $_[0]->{flush};
     $class->attribute->{dbh} ||= DBI->connect(
         $class->attribute->{dsn},
@@ -93 +94 @@
     );
     $class->attribute->{dbh};
+}
+
+sub reconnect {
+    my $class = shift;
+    $class->connect_info(@_);
+    $class->_connect({flush => 1});
 }