From 50bf9bec10d0d7c3f3299bef58dde5919e3696f4 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 23 May 2011 21:44:08 +0200
Subject: [PATCH] Eliminate $efa->parse(), include it in $efa->submit()
---
bin/efa | 4 ----
lib/Net/Travel/DE/VRR.pm | 8 ++------
2 files changed, 2 insertions(+), 10 deletions(-)
diff --git a/bin/efa b/bin/efa
index dcfca12..a519b5d 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 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
--
GitLab