From: mike <mike>
Date: Wed, 4 Oct 2006 17:15:03 +0000 (+0000)
Subject: Add ZOOM::Connection::is_idle()
X-Git-Tag: cpan_1_22~122
X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=commitdiff_plain;h=a093850375464520c98525423b6222f89e7f7b1a;p=ZOOM-Perl-moved-to-github.git

Add ZOOM::Connection::is_idle()
---

diff --git a/lib/ZOOM.pm b/lib/ZOOM.pm
index 28dc285..0e3e583 100644
--- a/lib/ZOOM.pm
+++ b/lib/ZOOM.pm
@@ -1,4 +1,4 @@
-# $Id: ZOOM.pm,v 1.35 2006-06-15 15:43:14 mike Exp $
+# $Id: ZOOM.pm,v 1.36 2006-10-04 17:15:03 mike Exp $
 
 use strict;
 use warnings;
@@ -489,6 +489,12 @@ sub last_event {
     return Net::Z3950::ZOOM::connection_last_event($this->_conn());
 }
 
+sub is_idle {
+    my $this = shift();
+
+    return Net::Z3950::ZOOM::connection_is_idle($this->_conn());
+}
+
 sub destroy {
     my $this = shift();