-# $Id: ZOOM.pm,v 1.14 2006-04-07 07:48:42 mike Exp $
+# $Id: ZOOM.pm,v 1.18 2006-04-07 12:07:23 mike Exp $
package Net::Z3950::ZOOM;
sub EVENT_RECV_APDU { 7 }
sub EVENT_RECV_RECORD { 8 }
sub EVENT_RECV_SEARCH { 9 }
+sub EVENT_END { 10 } # In YAZ 2.1.17 and later
=head1 NAME
http://www.indexdata.dk/yaz/doc/zoom.tkl
The only additional (non-ZOOM-C) function provided by this module is
-C<eventstr()>, which takes as its argument an event code such as
+C<event_str()>, which takes as its argument an event code such as
C<Net::Z3950::ZOOM::EVENT_SEND_APDU>, and returns a corresponding
short string.
=cut
-sub eventstr {
+sub event_str {
my($code) = @_;
if ($code == EVENT_NONE) {
return "receive record";
} elsif ($code == EVENT_RECV_SEARCH) {
return "receive search";
+ } elsif ($code == EVENT_END) {
+ return "end";
}
return "impossible event " . $code;
}