From: mike <mike>
Date: Tue, 16 Jan 2007 11:17:28 +0000 (+0000)
Subject: ZOOM::Connection::peek_event()
X-Git-Tag: cpan_1_22~83
X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;h=98b6a8aea3d6aa14a114fad4e4da22b308117923;p=ZOOM-Perl-moved-to-github.git

ZOOM::Connection::peek_event()
---

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();