diff options
Diffstat (limited to 'lib/WWW/Efa.pm')
-rw-r--r-- | lib/WWW/Efa.pm | 17 |
1 files changed, 17 insertions, 0 deletions
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>. |