Commit 4f59ed0d authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add --devmode switch

parent 5279c129

bin/efa

+5 −2
Original line number Diff line number Diff line
@@ -165,6 +165,7 @@ GetOptions( 
		bike|b

		date|d=s

		depart=s

		devmode

		discover|D

		efa-url|u=s

		exclude|e=s@
@@ -274,6 +275,7 @@ if ( $opt->{discover} or $opt->{'auto-url'} ) { 
				max_interchanges      => $opt->{'max-change'},

				num_results           => $opt->{'num-connections'},



				developer_mode => $opt->{devmode},

				lwp_options    => { timeout => $opt->{timeout} },

			);

		};
@@ -314,6 +316,7 @@ else { 
			max_interchanges      => $opt->{'max-change'},

			num_results           => $opt->{'num-connections'},



			developer_mode => $opt->{devmode},

			lwp_options    => { timeout => $opt->{timeout} },

		);

	};

lib/Travel/Routing/DE/EFA.pm

+3 −1
Original line number Diff line number Diff line
@@ -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');