OpenSRF client disconnect robustification (Perl)
[OpenSRF.git] / src / perl / lib / OpenSRF / Transport / SlimJabber / PeerConnection.pm
index c41517c..e4f4749 100644 (file)
@@ -31,6 +31,12 @@ sub retrieve {
        return $_singleton_connection;
 }
 
+sub reset {
+    return unless $_singleton_connection;
+    $_singleton_connection->disconnect;
+    $_singleton_connection = undef;
+}
+
 
 sub new {
        my( $class, $app ) = @_;