From 98b6a8aea3d6aa14a114fad4e4da22b308117923 Mon Sep 17 00:00:00 2001
From: mike <mike>
Date: Tue, 16 Jan 2007 11:17:28 +0000
Subject: [PATCH] ZOOM::Connection::peek_event()

---
 lib/ZOOM.pm |    8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/ZOOM.pm b/lib/ZOOM.pm
index cc0cf8e..96cfd3c 100644
--- a/lib/ZOOM.pm
+++ b/lib/ZOOM.pm
@@ -1,4 +1,4 @@
-# $Id: ZOOM.pm,v 1.43 2006-12-01 14:13:41 mike Exp $
+# $Id: ZOOM.pm,v 1.44 2007-01-16 11:17:28 mike Exp $
 
 use strict;
 use warnings;
@@ -499,6 +499,12 @@ sub is_idle {
     return Net::Z3950::ZOOM::connection_is_idle($this->_conn());
 }
 
+sub peek_event {
+    my $this = shift();
+
+    return Net::Z3950::ZOOM::connection_peek_event($this->_conn());
+}
+
 sub destroy {
     my $this = shift();
 
-- 
1.7.10.4