diff options
| -rwxr-xr-x | bin/efa | 4 | ||||
| -rw-r--r-- | lib/Net/Travel/DE/VRR.pm | 8 |
2 files changed, 2 insertions, 10 deletions
@@ -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 8f1b506..6f7af12 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<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 |