diff options
| -rwxr-xr-x | bin/efa-m | 18 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 5 |
2 files changed, 14 insertions, 9 deletions
@@ -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(); |