From 4f59ed0db3d0f47d5e8dca19a9ba3809ef755094 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 28 May 2015 19:50:59 +0200 Subject: 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'); -- cgit v1.2.3