add devmode option (moar debugging)

2 files changed, 16 insertions, 8 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) = @_;
diff --git a/lib/Travel/Status/DE/URA.pm b/lib/Travel/Status/DE/URA.pm
index 1a11d26..eb1c7de 100644
--- a/lib/Travel/Status/DE/URA.pm
+++ b/lib/Travel/Status/DE/URA.pm
@@ -32,13 +32,14 @@ sub new {
 	my $self = {
 		datetime => $opt{datetime}
 		  // DateTime->now( time_zone => 'Europe/Berlin' ),
-		ura_base    => $opt{ura_base},
-		ura_version => $opt{ura_version},
-		full_routes => $opt{calculate_routes} // 0,
-		hide_past   => $opt{hide_past} // 1,
-		stop        => $opt{stop},
-		via         => $opt{via},
-		post        => {
+		developer_mode => $opt{developer_mode},
+		ura_base       => $opt{ura_base},
+		ura_version    => $opt{ura_version},
+		full_routes    => $opt{calculate_routes} // 0,
+		hide_past      => $opt{hide_past} // 1,
+		stop           => $opt{stop},
+		via            => $opt{via},
+		post           => {
 			ReturnList =>
 			  'lineid,linename,directionid,destinationtext,vehicleid,'
 			  . 'tripid,estimatedtime,stopid,stoppointname'
@@ -66,6 +67,10 @@ sub new {
 
 	$self->{raw_str} = $response->decoded_content;
 
+	if ( $self->{developer_mode} ) {
+		say $self->{raw_str};
+	}
+
 	# Fix encoding in case we're running through test files
 	if ( substr( $self->{ura_instant_url}, 0, 5 ) eq 'file:' ) {
 		$self->{raw_str} = encode( 'UTF-8', $self->{raw_str} );