add --devmode option

2 files changed, 14 insertions, 9 deletions

diff --git a/bin/efa-m b/bin/efa-m
index 0dccb8c..0b1544d 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -16,7 +16,7 @@ use Travel::Status::DE::EFA;
 
 my $efa_url = 'http://efa.vrr.de/vrr/XSLT_DM_REQUEST';
 my ( $date, $time, $input_type, $list_lines, $offset, $relative_times );
-my ($timeout);
+my ( $timeout,    $developer_mode );
 my ( @grep_lines, @grep_platforms );
 
 @ARGV = map { decode( 'UTF-8', $_ ) } @ARGV;
@@ -33,6 +33,7 @@ GetOptions(
 	'timeout=i'     => \$timeout,
 	'u|efa-url=s'   => \$efa_url,
 	'V|version'     => \&show_version,
+	'devmode'       => \$developer_mode,
 
 ) or show_help(1);
 
@@ -51,13 +52,14 @@ if ( $input =~ s{ ^ (?<type> address|poi|stop) : }{}x ) {
 }
 
 my $status = Travel::Status::DE::EFA->new(
-	date    => $date,
-	efa_url => $efa_url,
-	place   => $place,
-	name    => $input,
-	time    => $time,
-	type    => $input_type,
-	timeout => $timeout,
+	date           => $date,
+	developer_mode => $developer_mode,
+	efa_url        => $efa_url,
+	place          => $place,
+	name           => $input,
+	time           => $time,
+	type           => $input_type,
+	timeout        => $timeout,
 );
 
 sub show_help {
diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm
index 4789ccc..0143cb6 100644
--- a/lib/Travel/Status/DE/EFA.pm
+++ b/lib/Travel/Status/DE/EFA.pm
@@ -104,6 +104,7 @@ sub new {
 			useProxFootSearch      => '0',
 			useRealtime            => '1',
 		},
+		developer_mode => $opt{developer_mode},
 	};
 
 	bless( $self, $class );
@@ -123,7 +124,9 @@ sub new {
 		string => $self->{xml},
 	);
 
-	#say $self->{tree}->toString(1);
+	if ( $self->{developer_mode} ) {
+		say $self->{tree}->toString(1);
+	}
 
 	$self->check_for_ambiguous();