add devmode option (moar debugging)

1 files changed, 4 insertions, 1 deletions

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) = @_;