add journey support

1 files changed, 25 insertions, 2 deletions

diff --git a/lib/Travel/Status/DE/DBRIS/Location.pm b/lib/Travel/Status/DE/DBRIS/Location.pm
index f053f2b..2dfba2c 100644
--- a/lib/Travel/Status/DE/DBRIS/Location.pm
+++ b/lib/Travel/Status/DE/DBRIS/Location.pm
@@ -9,7 +9,9 @@ use parent 'Class::Accessor';
 our $VERSION = '0.01';
 
 Travel::Status::DE::DBRIS::Location->mk_ro_accessors(
-	qw(eva id lat lon name products type is_cancelled is_additional is_separation display_priority)
+	qw(eva id lat lon name products type is_cancelled is_additional is_separation display_priority
+	  dep arr platform
+	)
 );
 
 sub new {
@@ -27,9 +29,30 @@ sub new {
 		type          => $json->{type},
 		is_cancelled  => $json->{canceled},
 		is_additional => $json->{additional},
-
+		platform      => $json->{gleis},
+		rt_platform   => $json->{ezGleis},
 	};
 
+	if ( $json->{abfahrtsZeitpunkt} ) {
+		$ref->{sched_dep}
+		  = $opt{strptime_obj}->parse_datetime( $json->{abfahrtsZeitpunkt} );
+	}
+	if ( $json->{ezAbfahrtsZeitpunkt} ) {
+		$ref->{rt_dep}
+		  = $opt{strptime_obj}->parse_datetime( $json->{ezAbfahrtsZeitpunkt} );
+	}
+	if ( $json->{ankunftsZeitpunkt} ) {
+		$ref->{sched_arr}
+		  = $opt{strptime_obj}->parse_datetime( $json->{ankunftsZeitpunkt} );
+	}
+	if ( $json->{ezAnkunftsZeitpunkt} ) {
+		$ref->{rt_arr}
+		  = $opt{strptime_obj}->parse_datetime( $json->{ezAnkunftsZeitpunkt} );
+	}
+
+	$ref->{arr} = $ref->{rt_arr} // $ref->{sched_arr};
+	$ref->{dep} = $ref->{rt_dep} // $ref->{sched_dep};
+
 	bless( $ref, $obj );
 
 	return $ref;