From c06d8c9b70e1950b8e7bd6ab7e14bac96d55ffc7 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 26 Dec 2018 12:25:35 +0100
Subject: show train direction

---
 lib/Travel/Status/DE/DBWagenreihung.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'lib')

diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm
index c879d14..5308961 100644
--- a/lib/Travel/Status/DE/DBWagenreihung.pm
+++ b/lib/Travel/Status/DE/DBWagenreihung.pm
@@ -86,6 +86,23 @@ sub error {
 	return $self->{errstr};
 }
 
+sub direction {
+	my ($self) = @_;
+
+	my @wagons = $self->wagons;
+
+	if ( not @wagons ) {
+		return undef;
+	}
+
+	if ( $wagons[0]->{position}{start_percent}
+		> $wagons[-1]{position}{start_percent} )
+	{
+		return 0;
+	}
+	return 100;
+}
+
 sub sections {
 	my ($self) = @_;
 
-- 
cgit v1.2.3