Commit 50bf9bec authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Eliminate $efa->parse(), include it in $efa->submit()

parent 26deb42e

bin/efa

+0 −4
Original line number Diff line number Diff line
@@ -41,8 +41,6 @@ GetOptions( 
		prefer|P=s

		proximity|p

		include|i=s

		test-dump

		test-parse

		time|t=s

		timeout=i

		to=s@{2}
@@ -98,8 +96,6 @@ $efa = Net::Travel::DE::VRR->new( 


$efa->submit( timeout => $opt->{'timeout'} );



$efa->parse();



my @routes = $efa->routes();



for my $i ( 0 .. $#routes ) {

lib/Net/Travel/DE/VRR.pm

+2 −6
Original line number Diff line number Diff line
@@ -406,6 +406,8 @@ sub submit { 


	$self->{html_reply} = $response->decoded_content( charset => 'latin-1' );



	$self->parse();



	return;

}
@@ -495,7 +497,6 @@ Net::Travel::DE::VRR - inofficial interface to the efa.vrr.de German itinerary s 
	);



	$efa->submit();

	$efa->parse();



	for my $route ($efa->routes()) {

		for my $part (@{$route}) {
@@ -598,11 +599,6 @@ If true: Prefer connections allowing to take a bike along 
Submit the query to B<http://efa.vrr.de>.

I<%opts> is passed on to LWP::UserAgent->new(%opts).



=item $efa->parse()



Parse the B<efa.vrr.de> reply.

returns a true value on success.



=item $efa->routes()



Returns a list of Net::Travel::DE::VRR::Route(3pm) elements. Each one contains