From 5f87f2bb33116ae072b7320fe9cedace0050d5d1 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Fri, 13 Aug 2010 17:28:54 +0200
Subject: Add $efa->setup_error() to replace $efa->{'error'} check

---
 lib/WWW/Efa.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'lib/WWW/Efa.pm')

diff --git a/lib/WWW/Efa.pm b/lib/WWW/Efa.pm
index fc3ae37..58d55bd 100644
--- a/lib/WWW/Efa.pm
+++ b/lib/WWW/Efa.pm
@@ -407,6 +407,23 @@ sub new {
 	return bless($ref, $obj);
 }
 
+=head2 $efa->setup_error()
+
+In case WWW::Efa->new() encountered an error (usually invalid options), this
+returns a B<WWW::Efa::Error::Setup> object describing the exact error.
+Otherwise, returns nothing.
+
+=cut
+
+sub setup_error {
+	my ($self) = @_;
+
+	if ($self->{'error'}) {
+		return $self->{'error'};
+	}
+	return;
+}
+
 =head2 $efa->submit(%opts)
 
 Submit the query to B<http://efa.vrr.de>.
-- 
cgit v1.2.3