From a093850375464520c98525423b6222f89e7f7b1a Mon Sep 17 00:00:00 2001 From: mike Date: Wed, 4 Oct 2006 17:15:03 +0000 Subject: [PATCH] Add ZOOM::Connection::is_idle() --- lib/ZOOM.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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(); -- 1.7.10.4