Commit 5f87f2bb authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Add $efa->setup_error() to replace $efa->{'error'} check

parent c7f28c4a

bin/efa

+2 −2
Original line number Diff line number Diff line
@@ -100,8 +100,8 @@ $efa = WWW::Efa->new( 
	max_interchanges  => $opt->{'max-change'},

);



if ($efa->{'error'}) {

	die $efa->{'error'}->as_string();

if (my $err = $efa->setup_error()) {

	die $err->as_string();

}



if ($opt->{'test-parse'}) {

lib/WWW/Efa.pm

+17 −0
Original line number Diff line number Diff line
@@ -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>.