Commit 7f49411f authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add --devmode option

parent 843388f8

bin/efa-m

+10 −8
Original line number Diff line number Diff line
@@ -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);
@@ -52,6 +53,7 @@ if ( $input =~ s{ ^ (?<type> address|poi|stop) : }{}x ) { 


my $status = Travel::Status::DE::EFA->new(

	date           => $date,

	developer_mode => $developer_mode,

	efa_url        => $efa_url,

	place          => $place,

	name           => $input,

lib/Travel/Status/DE/EFA.pm

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