ZOOM::Connection::peek_event()

[ZOOM-Perl-moved-to-github.git] / lib / ZOOM.pm

diff --git a/lib/ZOOM.pm b/lib/ZOOM.pm
index cc0cf8e..96cfd3c 100644 (file)
--- 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();