diff --git a/bin/efa b/bin/efa index dcfca1229875503aae179b72bf4ee7e056dbbee9..a519b5d9fed765651f67989de73b8b737f202f32 100755 --- a/bin/efa +++ b/bin/efa @@ -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 ) { diff --git a/lib/Net/Travel/DE/VRR.pm b/lib/Net/Travel/DE/VRR.pm index 8f1b506513b9d533e8c427dc62566ffc85a98125..6f7af12254eaedb0e45c7a83da4c0664c1d6617c 100644 --- a/lib/Net/Travel/DE/VRR.pm +++ b/lib/Net/Travel/DE/VRR.pm @@ -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. I<%opts> is passed on to LWP::UserAgent->new(%opts). -=item $efa->parse() - -Parse the B reply. -returns a true value on success. - =item $efa->routes() Returns a list of Net::Travel::DE::VRR::Route(3pm) elements. Each one contains