From 5600e3863c9dc8b321e5f580a3e7bbd4c64da892 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 12 Oct 2015 13:44:12 +0200 Subject: add devmode option (moar debugging) --- bin/aseag-m | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'bin/aseag-m') diff --git a/bin/aseag-m b/bin/aseag-m index 86ed39a..2d06089 100755 --- a/bin/aseag-m +++ b/bin/aseag-m @@ -21,6 +21,7 @@ my $strftime_format = '%H:%M:%S'; my $strfrel_format = '%M min'; my ( %edata, @edata_pre ); my $calculate_routes = 0; +my $developer_mode; my $via; GetOptions( @@ -32,6 +33,7 @@ GetOptions( 'S|strfrel=s' => \$strfrel_format, 'v|via=s' => \$via, 'V|version' => \&show_version, + 'devmode' => \$developer_mode, ) or show_help(1); @@ -56,7 +58,8 @@ for my $efield (@edata_pre) { my ($stop_name) = @ARGV; -my $status = Travel::Status::DE::ASEAG->new; +my $status + = Travel::Status::DE::ASEAG->new( developer_mode => $developer_mode ); sub show_help { my ($code) = @_; -- cgit v1.2.3