add --devmode switch

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');