From 4f59ed0db3d0f47d5e8dca19a9ba3809ef755094 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 28 May 2015 19:50:59 +0200
Subject: [PATCH] add --devmode switch
---
bin/efa | 7 +++++--
lib/Travel/Routing/DE/EFA.pm | 4 +++-
2 files changed, 8 insertions(+), 3 deletions(-)
diff --git a/bin/efa b/bin/efa
index dd8019e..5936ad1 100755
--- a/bin/efa
+++ b/bin/efa
@@ -165,6 +165,7 @@ GetOptions(
bike|b
date|d=s
depart=s
+ devmode
discover|D
efa-url|u=s
exclude|e=s@
@@ -274,7 +275,8 @@ if ( $opt->{discover} or $opt->{'auto-url'} ) {
max_interchanges => $opt->{'max-change'},
num_results => $opt->{'num-connections'},
- lwp_options => { timeout => $opt->{timeout} },
+ developer_mode => $opt->{devmode},
+ lwp_options => { timeout => $opt->{timeout} },
);
};
if ($efa) {
@@ -314,7 +316,8 @@ else {
max_interchanges => $opt->{'max-change'},
num_results => $opt->{'num-connections'},
- lwp_options => { timeout => $opt->{timeout} },
+ developer_mode => $opt->{devmode},
+ lwp_options => { timeout => $opt->{timeout} },
);
};
}
diff --git a/lib/Travel/Routing/DE/EFA.pm b/lib/Travel/Routing/DE/EFA.pm
index fefc2bd..24ee7e1 100644
--- a/lib/Travel/Routing/DE/EFA.pm
+++ b/lib/Travel/Routing/DE/EFA.pm
@@ -659,7 +659,9 @@ sub parse_xml {
string => $self->{xml_reply},
);
- #say $tree->toString(2);
+ if ( $self->{config}->{developer_mode} ) {
+ say $tree->toString(2);
+ }
my $xp_element = XML::LibXML::XPathExpression->new(
'//itdItinerary/itdRouteList/itdRoute');
--
GitLab