From: mike <mike>
Date: Wed, 9 May 2007 12:03:52 +0000 (+0000)
Subject: New ->exception() method£
X-Git-Tag: cpan_1_22~54
X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;h=beb0211a4003983bbacbe2b8c1a6f08144ccc39a;p=ZOOM-Perl-moved-to-github.git

New ->exception() method£
---

diff --git a/Changes b/Changes
index 97f5a67..9161ddc 100644
--- a/Changes
+++ b/Changes
@@ -1,8 +1,9 @@
-$Id: Changes,v 1.60 2007-04-18 11:19:10 mike Exp $
+$Id: Changes,v 1.61 2007-05-09 12:03:52 mike Exp $
 
 Revision history for Perl extension Net::Z3950::ZOOM.
 
 1.19  (IN PROGRESS)
+	- Add $conn->exception() method.
 	- Set version number for Net::Z3950 to 0.99 -- less than the
 	  1.0 version number that will be used when it successfully
 	  emulates the old Net::Z3950 module, but superseding the last
diff --git a/lib/ZOOM.pm b/lib/ZOOM.pm
index 2b335b4..0a42e3e 100644
--- a/lib/ZOOM.pm
+++ b/lib/ZOOM.pm
@@ -1,4 +1,4 @@
-# $Id: ZOOM.pm,v 1.47 2007-02-26 14:52:21 mike Exp $
+# $Id: ZOOM.pm,v 1.48 2007-05-09 12:03:52 mike Exp $
 
 use strict;
 use warnings;
@@ -402,6 +402,14 @@ sub error_x {
     return wantarray() ? ($errcode, $errmsg, $addinfo, $diagset) : $errcode;
 }
 
+sub exception {
+    my $this = shift();
+
+    my($errcode, $errmsg, $addinfo, $diagset) = $this->error_x();
+    return undef if $errcode == 0;
+    return new ZOOM::Exception($errcode, $errmsg, $addinfo, $diagset);
+}
+
 sub errcode {
     my $this = shift();
     return Net::Z3950::ZOOM::connection_errcode($this->_conn());
diff --git a/lib/ZOOM.pod b/lib/ZOOM.pod
index 5d63838..acc0cce 100644
--- a/lib/ZOOM.pod
+++ b/lib/ZOOM.pod
@@ -1,4 +1,4 @@
-# $Id: ZOOM.pod,v 1.42 2007-02-26 14:40:01 mike Exp $
+# $Id: ZOOM.pod,v 1.43 2007-05-09 12:03:52 mike Exp $
 
 use strict;
 use warnings;
@@ -305,6 +305,15 @@ returns all four at once.
 
 See the C<ZOOM::Exception> for the interpretation of these elements.
 
+=head4 exception()
+
+ die $conn->exception();
+
+C<exception()> returns the same information as C<error_x()> in the
+form of a C<ZOOM::Exception> object which may be thrown or rendered.
+If no error occurred on the connection, then C<exception()> returns an
+undefined value.
+
 =head4 check()
 
  $conn->check();